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, 101251396, 102765916, 113107996

Offset

1,2

Links

Chai Wah Wu, Table of n, a(n) for n = 1..287

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
(Python)
from itertools import count, islice
from oeis_sequences.OEISsequences import lucas_mod
def A094396_gen(startvalue=1): # generator of terms >= startvalue
    return filter(lambda k: not lucas_mod(k-1, k), count(max(startvalue, 1)))
A094396_list = list(islice(A094396_gen(), 10)) # Chai Wah Wu, Jul 15 2026

Crossrefs

Cf. A094397.

Sequence in context: A334471 A153063 A165499 * A161838 A152624 A059107

Adjacent sequences: A094393 A094394 A094395 * A094397 A094398 A094399

Keyword

nonn,changed

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

a(28)-a(30) from Chai Wah Wu, Jul 15 2026

Status

approved