OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Range[2, 100000], Divisible[2^CarmichaelLambda[#] - 1, #^2] &]
PROG
(PARI) isok(n) = Mod(2, n^2)^lcm(znstar(n)[2]) == 1; \\ Michel Marcus, Sep 11 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Sep 06 2017
EXTENSIONS
a(32)-a(36) from Michel Marcus, Sep 11 2017
a(37)-a(41) from Michel Marcus, Sep 12 2017
a(42)-a(43) from Michel Marcus, Sep 14 2017
STATUS
approved