OFFSET
1,1
COMMENTS
Are all terms even? - Robert Israel, Jan 13 2017
MAPLE
select(n -> not isprime(n) and n mod numtheory:-phi(n) = numtheory:-sigma(n) mod n, [$2..10^7]); # Robert Israel, Jan 13 2017
PROG
(PARI) for(n=3, 500000, if(n%eulerphi(n)==(1-isprime(n))*sigma(n)%n, print1(n, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Mar 11 2002
EXTENSIONS
a(31) and a(32) from Robert Israel, Jan 13 2017
STATUS
approved