A052771 maple to mathematica

[wouter meeussen]

in Mma-land, we lose the elegance of the
combinatorial description, and are left with
a bare 2^(-3 + n)*(-2 + n)*(-1 + n)*n

but that's not what you asked for, I fear.

W.



----- Original Message ----- 
From: "Ross La Haye" <rlahaye at new.rr.com>
To: "Seqfan" <seqfan at ext.jussieu.fr>
Sent: Saturday, October 08, 2005 7:20 AM
Subject: A052771 maple to mathematica



The Maple code for A052771 is --

spec := [S,{B=Set(Z),S=Prod(Z,Z,Z,B,B)},labeled]:
seq(combstruct[count](spec,size=n), n=0..20);

Could someone please translate that to Mathematica...?

Ross