OFFSET
0,3
EXAMPLE
There are 2625 semiprimes less than 10^4 and there are 1229 primes less than 10^4, so a(4) = 2625 - 1229 = 1396.
MATHEMATICA
SemiPrimePi[n_] := Sum[ PrimePi[n/Prime@ i] - i + 1, {i, PrimePi@ Sqrt@ n}]; f[n_] := SemiPrimePi[10^n - 1] - PrimePi[10^n - 1]; Array[f, 15, 0] (* Robert G. Wilson v, Jul 05 2012 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Harvey P. Dale, Sep 04 2011
STATUS
approved