A094809 Numbers of the form Fibonacci(p+1)/p, where p are primes >= 7 that end in 3 or 7 (i.e., p = A003631(n) for n > 2).

3, 29, 152, 2016, 1056437, 16311831, 102287808, 1627690024, 1085424779823, 17876295136009, 1933742696582736, 1394864457161925217, 23571778916504612451, 155523623837575361328, 2642576343530770503704, 1982116737665744001184443, 225989772612884036918821112, 2983063546028389514347409745197

Offset

1,1

Links

Table of n, a(n) for n=1..18.

Formula

a(n) = A096028(n+1). - Jinyuan Wang, Feb 24 2020

Mathematica

With[{prs=Select[Prime[Range[4, 50]], MemberQ[{3, 7}, Mod[#, 10]]&]}, Table[Fibonacci[p+1]/p, {p, prs}]] (* Harvey P. Dale, Sep 26 2024 *)

Prog

(PARI) forprime(p=7, 10^3, if((p+3)%5>1, next); print1(fibonacci(p+1)/p, ", ")) \\ Max Alekseyev, Jan 12 2007

Crossrefs

Cf. A003631, A094808, A096028.

Sequence in context: A171355 A163854 A227046 * A096028 A137786 A112498

Adjacent sequences: A094806 A094807 A094808 * A094810 A094811 A094812

Keyword

nonn

Author

Lekraj Beedassy, Jun 11 2004

Extensions

More terms from Max Alekseyev, Jan 12 2007

More terms from Jinyuan Wang, Feb 24 2020

Status

approved