%I #12 Nov 17 2018 23:51:40
%S 1,2,44,1364,2204,7964,12524,20569,23804,31124,32642,73124,99644,
%T 110564,287804,315524,780044,987524,1050524,1390724,1585121,1891124,
%U 2158244,2223836,2430849,2661164,3725084,4308524,4831244,6445724,6458804,7028564,8997449
%N Numbers k such that k divides the (k+1)st Lucas number.
%H Charles R Greathouse IV, <a href="/A094397/b094397.txt">Table of n, a(n) for n = 1..185</a>
%t Do[If[Mod[Fibonacci[n] + Fibonacci[n+2], n] == 0, Print[n]], {n, 1, 120000}] (* _Ryan Propper_, Jun 20 2005 *)
%o (PARI) is(n)=(Mod([0,1;1,1],n)^(n+1)*[2;1])[1,1]==0 \\ _Charles R Greathouse IV_, Nov 04 2016
%Y Cf. A094396.
%K nonn
%O 1,2
%A _Eric Rowland_, May 01 2004
%E 110564 from _Emeric Deutsch_, Mar 30 2005
%E 19 more terms from _Ryan Propper_, Jun 20 2005
|