cp's OEIS Frontend

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.

A194855 Numbers n such that phi(n) divides Sum_{k=1..n} phi(k).

This page as a plain text file.
%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