|
|
A071221
|
|
Product of next n composite numbers.
|
|
2
|
|
|
4, 48, 1080, 60480, 5544000, 622702080, 106661318400, 28405593216000, 8247280940236800, 3294906785089920000, 1595754032207182848000, 840201424492187197440000, 653671274699431372640256000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
a(1) = 4,a(2) = 6*8 = 48 and a(3) = 9*10*12 = 1080.
|
|
MATHEMATICA
|
nn=15; With[{comps=Complement[Rest[Range[(nn(nn+1))]], Prime[Range[ PrimePi[ (nn(nn+1))]]]]}, Table[Times@@Take[comps, {(n(n-1))/2+1, (n(n+1))/2}], {n, nn}]] (* Harvey P. Dale, Dec 03 2012 *)
Module[{nn=200, cmps, len}, cmps=Select[Range[nn], CompositeQ]; len=Floor[(Sqrt[8 Length[cmps]+1]-1)/2]; Times@@@TakeList[cmps, Range[len]]] (* Harvey P. Dale, May 25 2022 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|