A335722 Integers m such that A014448(m) == 1 (mod m).
1, 3, 77, 235, 517, 8155, 17567, 18235, 22827, 33355, 57053, 59899, 67947, 107067, 107767, 151987, 232379, 238539, 289155, 306859, 331115, 360267, 411803, 427467, 471115, 576987, 611187, 681963, 713767, 742467, 765195, 811947, 871827, 982315, 1043915, 1174859, 1211115
Offset: 1
Keywords
Programs
-
Mathematica
Select[Range[10^4], Divisible[LucasL[3#] - 1, #] &] (* Amiram Eldar, Jun 19 2020 *)
Comments