A096028 Numbers of the form (Fibonacci(p+1))/p, where p are primes ending in 3 or 7 (i.e., A003631).

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

Offset

1,2

Comments

Essentially the same as A094809. - R. J. Mathar, Sep 04 2008

Links

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

Mathematica

s = Select[ Prime[ Range[35]], Mod[ #, 10] == 3 || Mod[ #, 10] == 7 &]; Fibonacci[s + 1]/s

Prog

(PARI) forprime(p=3, 10^3, if((p+3)%5>1, next); print1(fibonacci(p+1)/p, ", ")); \\ Jinyuan Wang, Feb 24 2020

Crossrefs

Cf. A094808, A094809.

Sequence in context: A163854 A227046 A094809 * A137786 A112498 A227694

Adjacent sequences: A096025 A096026 A096027 * A096029 A096030 A096031

Keyword

nonn

Author

Lekraj Beedassy and Robert G. Wilson v, Jun 15 2004

Extensions

More terms from Jinyuan Wang, Feb 24 2020

Status

approved