%I A134791
%S A134791 1,0,0,2,2,4,7,9,16,17,34,57,60,166,200,201,209,237,266,267
%V A134791 -1,0,0,2,2,4,7,9,16,17,34,57,60,166,200,201,209,237,266,267
%N A134791 Floor Log[(prime Fibonacci[Prime[k]]/Prime[k])].
%t A134791 k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Floor[Log[Fibonacci[Prime[n]]/
               Prime[n]]]]], {n, 1, 200}]; k
%Y A134791 Cf. A050937, A090819, A134787, A134788, A134789, A134790.
%Y A134791 Sequence in context: A065968 A105669 A019657 this_sequence A095760 A082222 
               A058630
%Y A134791 Adjacent sequences: A134788 A134789 A134790 this_sequence A134792 A134793 
               A134794
%K A134791 sign
%O A134791 1,4
%A A134791 Artur Jasinski (grafix(AT)csl.pl), Nov 12 2007