login
A094397
Numbers k such that k divides the (k+1)st Lucas number.
2
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
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