A094397 Numbers k such that k divides the (k+1)st Lucas number.

1, 2, 44, 1364, 2204, 7964, 12524, 20569, 23804, 31124, 32642, 73124, 99644, 110564, 287804, 315524, 780044, 987524, 1050524, 1390724, 1585121, 1891124, 2158244, 2223836, 2430849, 2661164, 3725084, 4308524, 4831244, 6445724, 6458804, 7028564, 8997449

Offset

1,2

Links

Charles R Greathouse IV, Table of n, a(n) for n = 1..185

Mathematica

Do[If[Mod[Fibonacci[n] + Fibonacci[n+2], n] == 0, Print[n]], {n, 1, 120000}] (* Ryan Propper, Jun 20 2005 *)

Prog

(PARI) is(n)=(Mod([0, 1; 1, 1], n)^(n+1)*[2; 1])[1, 1]==0 \\ Charles R Greathouse IV, Nov 04 2016

Crossrefs

Cf. A094396.

Sequence in context: A009620 A001627 A202747 * A213067 A140795 A161744

Adjacent sequences: A094394 A094395 A094396 * A094398 A094399 A094400

Keyword

nonn

Author

Eric Rowland, May 01 2004

Extensions

110564 from Emeric Deutsch, Mar 30 2005

19 more terms from Ryan Propper, Jun 20 2005

Status

approved