OFFSET
1,1
COMMENTS
These are listed in order of increasing n.
LINKS
T. D. Noe, Table of n, a(n) for n=1..1000
MATHEMATICA
Select[Table[n EulerPhi[n]-1, {n, 250}], PrimeQ[#]&] (* Harvey P. Dale, Aug 15 2011 *)
CROSSREFS
KEYWORD
easy,nice,nonn
AUTHOR
EXTENSIONS
Corrected and extended by Jud McCranie, Jan 03 2001
Name clarified by Michel Marcus, Jul 31 2018
STATUS
approved