|
|
A134791
|
|
Floor Log[(prime Fibonacci[Prime[k]]/Prime[k])].
|
|
1
|
|
|
-1, 0, 0, 2, 2, 4, 7, 9, 16, 17, 34, 57, 60, 166, 200, 201, 209, 237, 266, 267
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,4
|
|
LINKS
|
|
|
MATHEMATICA
|
k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|