Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A290249
Numbers that are the sum of distinct primorial numbers (A002110) (not including 1).
2
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,1
FORMULA
Nonzero exponents in expansion of Product_{k>=1} (1 + x^A002110(k)).
EXAMPLE
38 is in the sequence because 38 = 2 + 6 + 30 = 2 + 2*3 + 2*3*5.
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}]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Ilya Gutkovskiy, Jul 24 2017
STATUS
approved