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 A074470 #14 Jan 21 2025 21:29:24
%S A074470 2,7,16,31,60,113,205,371,663,1176,2069,3631,6341,11039,19159,33164,
%T A074470 57287,98763,169967,292061,501165,858892,1470334,2514423,4295912,
%U A074470 7333264,12508213,21319360,36312685,61811287,105152840,178787270,303829041,516074615,876190239
%N A074470 Least m such that Phi-Composite-Harmonic series Sum_{k=1..m} 1/A000010(A002808(k)) >= n.
%t A074470 c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] {s=0, s1=0}; Do[s=s+(1/EulerPhi[c[n]]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 1, 1000000}]
%Y A074470 Cf. A004080, A002387, A002808, A000203, A073255, A046024, A074631, A074633, A074468, A074469.
%K A074470 hard,nonn
%O A074470 1,1
%A A074470 _Labos Elemer_, Sep 05 2002
%E A074470 More terms from Lambert Klasen (lambert.klasen(AT)gmx.net), Jul 23 2005
%E A074470 a(30)-a(35) from _Donovan Johnson_, Aug 21 2011