%I #3 Mar 31 2012 12:38:21
%S 1,3,87,123,143,183,267,303,327,447,483,543,687,723,807,843,1023,1047,
%T 1167,1203,1227,1263,1347,1383,1527,1563,1623,1707,1763,1803,1923,
%U 1983,2103,2127,2283,2307,2427,2463,2487,2643,2691,2703,2787,2823,3027,3063
%N Indices n such that Fibonacci(n-3) is a multiple of n.
%e Fibonacci(84)/87=160500643816367088/87=1844834986395024, so 87 is in the sequence. Fibonacci(120)/123=5358359254990966640871840/123 = 43563896382040379194080 so 123 is in the sequence.
%t lst={};Do[If[Mod[(Fibonacci[n-3]),n]==0,AppendTo[lst,n]],{n,3*7!}];lst
%Y Cf. A123976, A159051, A159052.
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Apr 03 2009
%E Comments edited by _R. J. Mathar_, Apr 05 2009
|