This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A144857 #24 Mar 16 2022 10:34:06
%S A144857 1,2,3,6,26,190,610,2078,2670,7038,16466,89973,150374,157298,163367,
%T A144857 419090,640627,879702,3479689,5618437,11304721,74106171,471591726,
%U A144857 475915439,1198344149,2270643086,3051266010
%N A144857 Numbers k that divide Sum_{i=1..k} phi(i)^2, where phi(i) = totient function A000010.
%C A144857 Does a number k exist such that RootMeanSquare(phi(1), ..., phi(k)) is an integer?
%F A144857 {k: k | A057434(k)}. - _R. J. Mathar_, Sep 29 2008
%t A144857 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 *)
%o A144857 (PARI) s=0;for(n=1,1e6,s+=eulerphi(n)^2;if(s%n==0,print1(n", "))) \\ _Charles R Greathouse IV_, Mar 05 2013
%Y A144857 Cf. A000010, A057434, A048290, A140480.
%K A144857 nonn,more
%O A144857 1,2
%A A144857 _Ctibor O. Zizka_, Sep 23 2008
%E A144857 a(8)-a(11) from _R. J. Mathar_, Sep 29 2008
%E A144857 a(12)-a(24) from _Robert G. Wilson v_, Oct 02 2008
%E A144857 a(25)-a(27) from _Donovan Johnson_, Aug 21 2011