OFFSET
1,1
COMMENTS
The sequence generally goes up,down,up,down...
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
phi(3^2)=phi(9)=6, therefore a(3)=7.
MAPLE
map(t -> nextprime(numtheory:-phi(t^2)-1), [$1..100]); # Robert Israel, Oct 25 2017
MATHEMATICA
Array[If[PrimeQ@ #, #, NextPrime@ #] &@ EulerPhi[#^2] &, 53] (* Michael De Vlieger, Oct 25 2017 *)
PROG
(PARI) for (n=1, 100, print1(nextprime(eulerphi(n^2))", "))
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Jon Perry, Jan 15 2003
EXTENSIONS
Corrected by Robert Israel, Oct 25 2017
STATUS
approved