OFFSET
0,4
MAPLE
spec := [C, {B=Union(Z, Subst(M, B)), M=Union(Prod(Z, Z), Prod(Z, Z, Z)), C=PowerSet(B)} ]; [seq(combstruct[count](spec, size=n), n=0..40)];
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Dec 21 2000
STATUS
approved