OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..224
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
Amarnath Murthy, May 17 2002
EXTENSIONS
Corrected and extended by Lior Manor Jun 02 2002
STATUS
approved