A052771 maple to mathematica

[Ross La Haye]

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


-------------- next part --------------
A non-text attachment was scrubbed...
Name: winmail.dat
Type: application/ms-tnef
Size: 1560 bytes
Desc: not available
URL: <http://list.seqfan.eu/pipermail/seqfan/attachments/20051008/d8be15f5/attachment.bin>