|
|
A094808
|
|
Numbers of the form Fibonacci(p-1)/p, where p are primes ending in 1 or 9 (i.e., A045468).
|
|
2
|
|
|
5, 136, 10959, 26840, 2495955, 10021808981, 25377192720, 2681584376185, 113220181313816, 12360536835574179, 3507176714646157575, 152669979363491409744, 5030798638073511770858765, 222738121208382108330061096, 25556388788416277561281235799, 66021302497942406531221230200
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
s = Select[ Prime[ Range[35]], Mod[ #, 10] == 1 || Mod[ #, 10] == 9 &]; Fibonacci[s - 1]/s (* Robert G. Wilson v, Jun 15 2004 *)
|
|
PROG
|
(PARI) forprime(p=11, 10^3, if((p+3)%5<2, next); print1(fibonacci(p-1)/p, ", ")); \\ Jinyuan Wang, Feb 24 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|