A094396 Numbers k such that k divides the (k-1)st Lucas number.

1, 3, 4, 11476, 80476, 192676, 317683, 542242, 934876, 1339516, 4455676, 5063356, 7159636, 9004876, 9874684, 10134316, 17594242, 20558476, 29375236, 32079916, 32347876, 36951916, 46136267, 46489276, 46829476, 54074836, 69457636

Offset

1,2

Links

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

Mathematica

Do[If[Mod[Fibonacci[n-2] + Fibonacci[n], n] == 0, Print[n]], {n, 100000}] (* Ryan Propper, Jun 21 2005 *)

Prog

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

Crossrefs

Cf. A094397.

Sequence in context: A334471 A153063 A165499 * A161838 A152624 A059107

Adjacent sequences: A094393 A094394 A094395 * A094397 A094398 A094399

Keyword

nonn

Author

Eric Rowland, May 01 2004

Extensions

10 more terms from Ryan Propper, Jun 21 2005

More terms from Ryan Propper, Jan 03 2008

a(19)-a(27) from Lars Blomberg, Mar 16 2012

1 prepended to the sequence by T. D. Noe, Mar 16 2012

Status

approved