OFFSET
1,2
PROG
(PARI) for(n=1, 2000, if(sum(i=1, n-1, sign(n%eulerphi(n)-i%eulerphi(i)))==n-1, print1(n, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 02 2002
STATUS
approved