OFFSET
0,1
LINKS
Eric Weisstein's World of Mathematics, Semiprime.
FORMULA
a(n) = A001358(10^n). - Chai Wah Wu, Jun 04 2026
MATHEMATICA
fQ[n_] := Plus @@ Last /@ FactorInteger@n == 2; c = 0; k = 2; Do[While[c < 10^n, If[fQ@k, c++ ]; k++ ]; Print[k - 1], {n, 0, 8}]
(* checked by *) SemiPrimePi[n_] := Sum[ PrimePi[n/Prime@i] - i + 1, {i, PrimePi@ Sqrt@n}]
PROG
(Perl) use ntheory ":all"; print "$_ ", nth_semiprime(10**$_), "\n" for 0..15; # Dana Jacobsen, Oct 08 2018
(Python)
from math import isqrt
from sympy import primepi, primerange
from oeis_sequences.OEISsequences import bisection
def A114125(n):
n10 = 10**n
def f(x): return int(n10+x+((t:=primepi(s:=isqrt(x)))*(t-1)>>1)-sum(primepi(x//p) for p in primerange(s+1)))
return bisection(f, n10, n10) # Chai Wah Wu, Jun 04 2026
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 11 2006
EXTENSIONS
a(14) from Donovan Johnson, Sep 27 2010
Corrected a(14), added a(15)-a(18) from Dana Jacobsen, Oct 10 2018
a(19)-a(20) from Henri Lifchitz, Nov 08 2024
STATUS
approved
