login
A112325
Number of even semiprimes <= semiprime(n).
2
1, 2, 2, 3, 4, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9, 9, 9, 9, 10, 11, 11, 11, 12, 12, 13, 13, 14, 14, 14, 14, 15, 15, 16, 16, 16, 17, 17, 17, 18, 18, 18, 18, 19, 19, 20, 20, 20, 21, 21, 22, 22, 22, 23, 23, 23, 24, 24, 24, 24, 25, 25, 26, 26, 26, 27, 27, 27, 28, 28, 28, 29, 29, 29, 30
OFFSET
1,2
LINKS
MATHEMATICA
spQ[n_] := Plus @@ Last /@ FactorInteger@n == 2; sp = Select[Range@300, spQ[ # ] &]; f[n_] := Length[Select[Take[sp, n], EvenQ[ # ] &]]; Array[f, 76] (* Robert G. Wilson v *)
Accumulate[If[EvenQ[#], 1, 0]&/@Select[Range[300], PrimeOmega[#]==2&]] (* Harvey P. Dale, Sep 10 2024 *)
CROSSREFS
Sequence in context: A060018 A089576 A076642 * A135304 A249037 A029111
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Dec 01 2005
EXTENSIONS
More terms from Stefan Steinerberger and Robert G. Wilson v, Dec 02 2005
STATUS
approved