OFFSET
1,2
COMMENTS
All primes numbers are terms.
MATHEMATICA
q[k_] := Module[{c = CarmichaelLambda[k]}, PowerMod[c, k, k] == c]; q[1] = True; Select[Range[200], q] (* Amiram Eldar, Dec 21 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Dec 21 2024
STATUS
approved