|
|
A111687
|
|
Comprimorial(n): the product of the first n primes and the first n composite numbers.
|
|
2
|
|
|
8, 144, 5760, 362880, 39916800, 6227020800, 1482030950400, 422378820864000, 155435406077952000, 81137281972690944000, 50305114823068385280000, 39087074217524135362560000, 35256540944206770097029120000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
a(1) = 2*4 = 8, a(2) = (2*3)*(4*6)=144.
|
|
MATHEMATICA
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|