|
%I #7 Apr 26 2019 15:19:59
%S 4,14,32,63,110,185,287,426,599,818,1098,1433,1840,2319,2870,3503,
%T 4229,5058,5987,7029,8182,9447,10845,12372,14039,15870,17857,19992,
%U 22288,24745,27372,30215,33256,36507,39959,43644,47551,51700,56087
%N Convolution of (1, p(1), p(2), ...) and composite numbers.
%H Harvey P. Dale, <a href="/A023627/b023627.txt">Table of n, a(n) for n = 1..1000</a>
%t 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 *)
%K nonn
%O 1,1
%A _Clark Kimberling_
|
