OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..184
MAPLE
select(n -> n mod numtheory:-phi(n) = numtheory:-lambda(n), [seq(i, i=2..100000, 2)]); # Robert Israel, Aug 04 2017
MATHEMATICA
Select[Range[10^5], Mod[#, EulerPhi@ #] == CarmichaelLambda@ # &] (* Michael De Vlieger, Jul 23 2017 *)
PROG
(PARI) isok(n) = (n % eulerphi(n)) == lcm(znstar(n)[2]); \\ Michel Marcus, Jul 23 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Thomas Ordowski, Jul 23 2017
EXTENSIONS
More terms from Robert Israel, Jul 23 2017
STATUS
approved