A290249 Numbers that are the sum of distinct primorial numbers (A002110) (not including 1).
2, 6, 8, 30, 32, 36, 38, 210, 212, 216, 218, 240, 242, 246, 248, 2310, 2312, 2316, 2318, 2340, 2342, 2346, 2348, 2520, 2522, 2526, 2528, 2550, 2552, 2556, 2558, 30030, 30032, 30036, 30038, 30060, 30062, 30066, 30068, 30240, 30242, 30246, 30248, 30270, 30272, 30276, 30278, 32340, 32342, 32346, 32348, 32370
Offset: 1
Keywords
Examples
38 is in the sequence because 38 = 2 + 6 + 30 = 2 + 2*3 + 2*3*5.
Programs
-
Mathematica
Rest[f[x_] := Product[1 + x^Product[Prime[m], {m, 1, k}], {k, 1, 6}]; Exponent[#, x] & /@ List @@ Normal[Series[f[x], {x, 0, 32370}]]]
Formula
Nonzero exponents in expansion of Product_{k>=1} (1 + x^A002110(k)).