OFFSET
1,3
PROG
(PARI) epr(m, c)=if (c>0, m=eulerphi(m); c--; epr(m, c), m) x=1; for (n=1, 100, while (epr(n, x)>1, x++); print1(x", "))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jon Perry, Jan 09 2003
EXTENSIONS
Description corrected by Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 31 2003
STATUS
approved