A110226 1 + sum of first n 4-almost primes.
1, 17, 41, 77, 117, 171, 227, 287, 368, 452, 540, 630, 730, 834, 960, 1092, 1227, 1363, 1503, 1653, 1805, 1961, 2145, 2334, 2530, 2728, 2932, 3142, 3362, 3587, 3815, 4047, 4281, 4529, 4779, 5039, 5315, 5609, 5905, 6202, 6508, 6816, 7131, 7459, 7789, 8129
Offset: 0
Programs
-
Mathematica
Accumulate[Join[{1},Select[Range[500],PrimeOmega[#]==4&]]] (* Harvey P. Dale, Dec 13 2018 *)
Formula
a(0) = 1; for n>0, a(n) = 1 + A086046(n).
Comments