A023627 Convolution of (1, p(1), p(2), ...) and composite numbers.

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

Harvey P. Dale, Table of n, a(n) for n = 1..1000

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

Adjacent sequences: A023624 A023625 A023626 * A023628 A023629 A023630

Keyword

nonn

Author

Clark Kimberling

Status

approved