|
%I #3 Mar 31 2012 12:38:27
%S 1,1,12,1932,3001,414732,100156812,25800145932,6922972387212,
%T 538340717238107532,154083590283523737612,44652993791591388673932,
%U 475400918060101145703001,3858093084890921488916776332
%N Integer values of Fibonacci(n)/n.
%t f[n_]:=Fibonacci[n]/n; lst={};Do[If[IntegerQ[f[n]],AppendTo[lst,f[n]]],{n,6!}];lst
%Y A023172 [From _Charles R Greathouse IV_, Nov 12 2009]
%K nonn
%O 1,3
%A _Vladimir Joseph Stephan Orlovsky_, Nov 10 2009
|
