|
%I #7 Jan 11 2014 18:17:08
%S 8,144,5760,362880,39916800,6227020800,1482030950400,422378820864000,
%T 155435406077952000,81137281972690944000,50305114823068385280000,
%U 39087074217524135362560000,35256540944206770097029120000
%N Comprimorial(n): the product of the first n primes and the first n composite numbers.
%H Harvey P. Dale, <a href="/A111687/b111687.txt">Table of n, a(n) for n = 1..215</a>
%F a(n) = A002110(n)*A036691(n) for n>=1. - _Rick L. Shepherd_, Aug 20 2005
%e a(1) = 2*4 = 8, a(2) = (2*3)*(4*6)=144.
%t Module[{nn=50,prs,coms,len},prs=Select[Range[nn],PrimeQ];coms=Complement[ Range[4,nn],prs];len=Min[Length[prs],Length[coms]];Rest[FoldList[ Times, 1, Times@@@Thread[{Take[prs,len],Take[coms,len]}]]]] (* _Harvey P. Dale_, Jan 11 2014 *)
%Y Cf. A002110 (primorials), A036691 (compositorials).
%K nonn
%O 1,1
%A _Amarnath Murthy_, Aug 17 2005
%E Corrected and extended by _Rick L. Shepherd_, Aug 20 2005
|
