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 A120045 #7 Feb 04 2022 02:21:27
%S A120045 16,88,693,5958,54328,511725,4922511,47997635,472514554,4683086217,
%T A120045 46636297326,466032880556
%N A120045 The (10^n)-th 4-almost prime.
%t A120045 FourAlmostPrimePi[n_] := Sum[ PrimePi[n/(Prime@i*Prime@j*Prime@k)] - k + 1, {i, PrimePi[n^(1/4)]}, {j, i, PrimePi[(n/Prime@i)^(1/3)]}, {k, j, PrimePi@Sqrt[n/(Prime@i*Prime@j)]}];
%t A120045 FourAlmostPrime[n_] := Block[{e = Floor[Log[2, n] +3], a, b}, a = 2^e; Do[b = 2^p; While[FourAlmostPrimePi[a] < n, a = a + b]; a = a - b/2, {p, e, 0, -1}]; a + b/2]; Do[ Print@FourAlmostPrime[10^n], {n, 0, 11}]
%Y A120045 Cf. A006988, A014613, A114106, A114125, A120044, A120046.
%K A120045 nonn,hard,more
%O A120045 0,1
%A A120045 _Robert G. Wilson v_, Feb 15 2006