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

Offset

1,4

Links

Table of n, a(n) for n=1..20.

Mathematica

k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k

Crossrefs

Cf. A050937, A090819, A134787, A134788, A134789, A134790.

Sequence in context: A256963 A355306 A019657 * A095760 A082222 A058630

Adjacent sequences: A134788 A134789 A134790 * A134792 A134793 A134794

Keyword

sign

Author

Artur Jasinski, Nov 12 2007

Status

approved