|
%I #9 Aug 01 2017 11:50:56
%S 2,6,8,30,32,36,38,210,212,216,218,240,242,246,248,2310,2312,2316,
%T 2318,2340,2342,2346,2348,2520,2522,2526,2528,2550,2552,2556,2558,
%U 30030,30032,30036,30038,30060,30062,30066,30068,30240,30242,30246,30248,30270,30272,30276,30278,32340,32342,32346,32348,32370
%N Numbers that are the sum of distinct primorial numbers (A002110) (not including 1).
%H <a href="/index/Pri#primorial_numbers">Index entries for sequences related to primorial numbers</a>
%F Nonzero exponents in expansion of Product_{k>=1} (1 + x^A002110(k)).
%e 38 is in the sequence because 38 = 2 + 6 + 30 = 2 + 2*3 + 2*3*5.
%t 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}]]]
%Y Cf. A002110, A059589, A059590, A143293, A177711, A276156.
%K nonn
%O 1,1
%A _Ilya Gutkovskiy_, Jul 24 2017
|
