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 A074633 #12 Jan 22 2025 22:26:24
%S A074633 2,4,8,12,18,27,37,51,68,89,116,147,186,232,287,352,428,518,623,745,
%T A074633 887,1050,1240,1456,1704,1987,2309,2674,3090,3557,4087,4684,5353,6105,
%U A074633 6949,7892,8944,10121,11431,12885,14502,16298,18286,20485,22917,25607
%N A074633 a(n) is the smallest index m such that Sum_{k=2..m} 1/PrimePi(k) >= n, where PrimePi()=A000720().
%e A074633 a(85) = 927685 because 927686 is the smallest m such that Sum_{k=2..m} 1/PrimePi(k) >= 85.
%t A074633 {s=0, s1=0}; Do[s=s+(1/PrimePi[n]); If[Greater[Floor[s], s1], s1=Floor[s]; Print[{n, Floor[s]}]], {n, 2, 1000000}]
%Y A074633 Cf. A004080, A046024, A074631, A000720.
%K A074633 nonn
%O A074633 1,1
%A A074633 _Labos Elemer_, Aug 28 2002
%E A074633 Edited by _Jon E. Schoenfield_, Apr 04 2023
%E A074633 Name corrected by _Sean A. Irvine_, Jan 22 2025