OFFSET
1,2
COMMENTS
Does a number k exist such that RootMeanSquare(phi(1), ..., phi(k)) is an integer?
FORMULA
{k: k | A057434(k)}. - R. J. Mathar, Sep 29 2008
MATHEMATICA
lst = {}; s = 0; Do[ s = s + EulerPhi[n]^2; If[ Mod[s, n] == 0, AppendTo[lst, n]], {n, 10^9}]; lst (* Robert G. Wilson v, Oct 02 2008 *)
PROG
(PARI) s=0; for(n=1, 1e6, s+=eulerphi(n)^2; if(s%n==0, print1(n", "))) \\ Charles R Greathouse IV, Mar 05 2013
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Ctibor O. Zizka, Sep 23 2008
EXTENSIONS
a(8)-a(11) from R. J. Mathar, Sep 29 2008
a(12)-a(24) from Robert G. Wilson v, Oct 02 2008
a(25)-a(27) from Donovan Johnson, Aug 21 2011
STATUS
approved