|
%I #3 Mar 31 2012 10:22:05
%S -1,0,0,2,2,4,7,9,16,17,34,57,60,166,200,201,209,237,266,267
%N Floor Log[(prime Fibonacci[Prime[k]]/Prime[k])].
%t k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/Prime[n]]]]], {n, 1, 200}]; k
%Y Cf. A050937, A090819, A134787, A134788, A134789, A134790.
%K sign
%O 1,4
%A _Artur Jasinski_, Nov 12 2007
|
