A159053 Indices n such that Fibonacci(n-3) is a multiple of n.
1, 3, 87, 123, 143, 183, 267, 303, 327, 447, 483, 543, 687, 723, 807, 843, 1023, 1047, 1167, 1203, 1227, 1263, 1347, 1383, 1527, 1563, 1623, 1707, 1763, 1803, 1923, 1983, 2103, 2127, 2283, 2307, 2427, 2463, 2487, 2643, 2691, 2703, 2787, 2823, 3027, 3063
Offset: 1
Keywords
Examples
Fibonacci(84)/87=160500643816367088/87=1844834986395024, so 87 is in the sequence. Fibonacci(120)/123=5358359254990966640871840/123 = 43563896382040379194080 so 123 is in the sequence.
Programs
-
Mathematica
lst={};Do[If[Mod[(Fibonacci[n-3]),n]==0,AppendTo[lst,n]],{n,3*7!}];lst Select[Range[3100],Mod[Fibonacci[#-3],#]==0&] (* Harvey P. Dale, Jul 18 2024 *)
Extensions
Comments edited by R. J. Mathar, Apr 05 2009