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,2

Links

Table of n, a(n) for n=1..46.

Example

Fibonacci(84)/87=160500643816367088/87=1844834986395024, so 87 is in the sequence. Fibonacci(120)/123=5358359254990966640871840/123 = 43563896382040379194080 so 123 is in the sequence.

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 *)

Crossrefs

Cf. A123976, A159051, A159052.

Sequence in context: A279020 A302947 A326948 * A172494 A279131 A368620

Adjacent sequences: A159050 A159051 A159052 * A159054 A159055 A159056

Keyword

nonn,changed

Author

Vladimir Joseph Stephan Orlovsky, Apr 03 2009

Extensions

Comments edited by R. J. Mathar, Apr 05 2009

Status

approved