OFFSET
0,2
MAPLE
B := proc(n, k, M) local i; option remember;
if n = k then 1;
elif k < n then 0;
elif n < 1 then 0;
else
add( binomial(k-1, i)*B(n-1, k-1-i, M), i=0..M-1 );
end if;
end proc;
p:=proc(n, M) add(B(n, k, M), k=0..M*n); end;
l:=proc(n, M) n!*p(n, M); end;
[seq(l(n, 2)/n, n=1..30)];
CROSSREFS
KEYWORD
nonn
AUTHOR
David Applegate and N. J. A. Sloane, Feb 16 2009
STATUS
approved