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 A074469 #14 Jan 21 2025 21:29:33
%S A074469 32,301,2123,13172,76105,420007,2245009,11719362,60071831,303487314,
%T A074469 1515211979
%N A074469 Least m such that Sigma-Composite-Harmonic series Sum_{k=1..m} 1/A000203(A002808(k)) >= n.
%t A074469 c[x_] := FixedPoint[x+PrimePi[ # ]+1&, x] {s=0, s1=0}; Do[s=s+(1/DivisorSigma[1, c[n]]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 1, 1000000}]
%o A074469 (PARI) a(n)=my(m,s=0.);for(c=4,(2*n+2)^(n+2),if(isprime(c),next,m++);s+=1/sigma(c);if(s>=n,return(m))) \\ _Charles R Greathouse IV_, Feb 19 2013
%Y A074469 Cf. A004080, A002387, A002808, A000203, A073255, A046024, A074631, A074633, A074468, A074470.
%K A074469 hard,more,nonn
%O A074469 1,1
%A A074469 _Labos Elemer_, Sep 05 2002
%E A074469 a(6)-a(11) from _Donovan Johnson_, Aug 22 2011