A152688 Partial products of A152687.
1, 1, 2, 48, 414720, 309586821120000, 62298599877271470735360000000000, 221419738218975714643056286355472083897548800000000000000000000, 30963454718960054822969246779894642673092903344400531870724683866888280945459200000000000000000000000000000000000
Offset: 1
Keywords
Programs
-
Mathematica
lst={};p0=p1=p2=p3=1;Do[p0*=a[n];p1*=p0;p2*=p1;p3*=p2;AppendTo[lst,p3],{n,1,2*3!}];lst
Extensions
Better definition from Omar E. Pol, Aug 06 2009