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 A194855 #19 Aug 22 2015 11:15:49 %S A194855 1,2,3,4,6,7,10,15,16,17,18,20,22,25,35,36,37,38,54,92,140,162,212, %T A194855 303,320,455,456,974,1028,1136,1296,1297,1353,1869,2215,2405,2548, %U A194855 3065,3265,4230,4410,5584,7886,21420,23727,36001,60662,85722,100117,117094,173973 %N A194855 Numbers n such that phi(n) divides Sum_{k=1..n} phi(k). %H A194855 Donovan Johnson, <a href="/A194855/b194855.txt">Table of n, a(n) for n = 1..100</a> %t A194855 limit = 200000; sums = Accumulate[EulerPhi[Range[limit]]]; Select[Range[limit], Mod[sums[[#]], EulerPhi[#]] == 0 &] (* _Carl Najafi_, Sep 05 2011 *) %o A194855 (PARI) isok(n)=sum(k=1,n,eulerphi(k))%eulerphi(n)==0 \\ _Anders Hellström_, Aug 22 2015 %Y A194855 Cf. A000010, A002088. %K A194855 nonn %O A194855 1,2 %A A194855 _Carl Najafi_, Sep 04 2011 %E A194855 More terms from _D. S. McNeil_, Sep 04 2011