|
%I #2 Mar 31 2012 10:22:05
%S 1,1,2,8,18,94,1246,17732,10081266,63217342,1195118711985006,
%T 8140003186959622868813528,139669360584622467747806014,
%U 1324290912910022899017738237233285189213652972190967113265372469016533360
%N Rounded ratio prime Fibonacci[Prime[k]]/Prime[k].
%t k = {}; Do[If[PrimeQ[Fibonacci[Prime[n]]], AppendTo[k, Round[Fibonacci[Prime[n]]/Prime[n]]]], {n, 1, 100}]; k
%Y Cf. A050937, A090819, A134787, A134788.
%K nonn
%O 1,3
%A _Artur Jasinski_, Nov 12 2007
|
