login
A023627
Convolution of (1, p(1), p(2), ...) and composite numbers.
1
4, 14, 32, 63, 110, 185, 287, 426, 599, 818, 1098, 1433, 1840, 2319, 2870, 3503, 4229, 5058, 5987, 7029, 8182, 9447, 10845, 12372, 14039, 15870, 17857, 19992, 22288, 24745, 27372, 30215, 33256, 36507, 39959, 43644, 47551, 51700, 56087
OFFSET
1,1
LINKS
MATHEMATICA
Module[{nn=40, len, cmps, prs}, prs=Join[{1}, Prime[Range[nn]]]; cmps = Select[ Range[2nn], CompositeQ]; len=Min[Length[prs], Length[cmps]]; Table[ ListConvolve[ Take[cmps, n], Take[prs, n]], {n, len}]]//Flatten (* Harvey P. Dale, Apr 26 2019 *)
CROSSREFS
Sequence in context: A023539 A159920 A036486 * A023649 A323723 A324042
KEYWORD
nonn
STATUS
approved