A094808 Numbers of the form Fibonacci(p-1)/p, where p are primes ending in 1 or 9 (i.e., A045468).

5, 136, 10959, 26840, 2495955, 10021808981, 25377192720, 2681584376185, 113220181313816, 12360536835574179, 3507176714646157575, 152669979363491409744, 5030798638073511770858765, 222738121208382108330061096, 25556388788416277561281235799, 66021302497942406531221230200

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..316

Mathematica

s = Select[ Prime[ Range[35]], Mod[ #, 10] == 1 || Mod[ #, 10] == 9 &]; Fibonacci[s - 1]/s (* Robert G. Wilson v, Jun 15 2004 *)
Fibonacci[#-1]/#&/@Select[Prime[Range[40]], MemberQ[{1, 9}, Mod[#, 10]]&] (* Harvey P. Dale, Jul 20 2025 *)

Prog

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

Crossrefs

Cf. A045468, A094809, A096028.

Sequence in context: A229772 A082212 A208867 * A367528 A320995 A061453

Adjacent sequences: A094805 A094806 A094807 * A094809 A094810 A094811

Keyword

nonn

Author

Lekraj Beedassy, Jun 11 2004

Extensions

More terms from Robert G. Wilson v, Jun 15 2004

More terms from Jinyuan Wang, Feb 24 2020

Status

approved