A181335 Partial products of A036691.
1, 4, 96, 18432, 31850496, 550376570880, 114126085737676800, 331312591939905257472000, 14427205603578338379772723200000, 10051861189298894268003697526046720000000
Offset: 0
Examples
a(3) = 1 * 4 * 24 * 192 = (1) * (1*4) * (1*4*6) * (1*4*6*8), since the first 4 composite numbers are (4, 6, 8) and the 0th compositorial is 1.
Programs
-
Mathematica
nn=20;cnos=Complement[Range[nn],Prime[Range[PrimePi[nn]]]];Rest[ FoldList[ Times,1,Rest[FoldList[Times,1,cnos]]]] (* Harvey P. Dale, Jun 28 2011 *)
Comments