A140234 Sum of the semiprimes <= n.
0, 0, 0, 0, 4, 4, 10, 10, 10, 19, 29, 29, 29, 29, 43, 58, 58, 58, 58, 58, 58, 79, 101, 101, 101, 126, 152, 152, 152, 152, 152, 152, 152, 185, 219, 254, 254, 254, 292, 331, 331, 331, 331, 331, 331, 331, 377, 377, 377, 426, 426, 477, 477, 477, 477, 532, 532, 589
Offset: 0
Programs
-
Mathematica
a[n_]:=Total[Select[Range[n],PrimeOmega[#]==2&]];Array[a,58,0] (* James C. McMahon, Jul 06 2025 *)
Comments