OFFSET
1,2
COMMENTS
a(6) > 10^10. - Michael S. Branicky, Feb 06 2025
EXAMPLE
46 is in the sequence because 46^2 - 2 = 2114 divides 2^46 - 2 = 70368744177662.
MATHEMATICA
Select[Range[10^4], Divisible[2^#-2, #^2-2]&] (* James C. McMahon, Feb 07 2025 *)
PROG
(Magma) [k: k in [1..1000] | IsZero((2^k-2) mod (k^2-2))];
(PARI) isok(k) = Mod(2, k^2-2)^k == 2; \\ Michel Marcus, Feb 04 2025
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Juri-Stepan Gerasimov, Feb 03 2025
STATUS
approved