A122489 Partial sums of A111939 (= number of primes < semiprime(n)).
2, 5, 9, 13, 19, 25, 33, 41, 50, 59, 70, 81, 92, 104, 116, 130, 145, 160, 176, 192, 208, 226, 244, 263, 284, 305, 327, 350, 373, 396, 420, 444, 468, 492, 519, 548, 578, 608, 638, 668, 698, 728, 759, 791, 823, 857, 891, 925, 959, 993, 1029, 1066, 1103, 1140
Offset: 1
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Crossrefs
Partial sums of A111939.
Programs
-
Mathematica
t=PrimePi@Select[Range@218, Plus @@ Last /@ FactorInteger@# == 2 &]; Table[Sum[t[[i]], {i, n}], {n, Length[t]}] (* Ray Chandler, Sep 20 2006 *)
Extensions
Edited and corrected by Ray Chandler, Sep 20 2006
Comments