OFFSET
1,1
COMMENTS
These primes are neither sorted nor unique. They are listed in the order they are found. - Michel Marcus, Jul 23 2015
PROG
(PARI) lista(nn) = for (n=1, nn, if (isprime(p=n^2*eulerphi(n)+1), print1(p, ", "))); \\ Michel Marcus, Jul 23 2015
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Enoch Haga, Jan 16 2004
EXTENSIONS
Name corrected by Michel Marcus, Jul 23 2015
STATUS
approved