|
|
A134789
|
|
Rounded ratio prime Fibonacci[Prime[k]]/Prime[k].
|
|
4
|
|
|
1, 1, 2, 8, 18, 94, 1246, 17732, 10081266, 63217342, 1195118711985006, 8140003186959622868813528, 139669360584622467747806014, 1324290912910022899017738237233285189213652972190967113265372469016533360
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
MATHEMATICA
|
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Round[Fibonacci[Prime[n]]/Prime[n]]]], {n, 1, 100}]; k
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|