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
KEYWORD
nonn
AUTHOR
STATUS
approved