A134791 - OEIS

A134791

Floor Log[(prime Fibonacci[Prime[k]]/Prime[k])].

-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