OFFSET
1,3
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 10 2008
EXTENSIONS
Better definition from Omar E. Pol, Aug 06 2009
STATUS
approved