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