|
%I #3 Jan 21 2014 12:30:22
%S 1,2,7,74,1596,58344,3240840,254535840,26862378480,3667537480320,
%T 629083000385280,132437508454137600,33575888768939193600,
%U 10090248381797704243200,3546915020658948703564800,1441883923593020355819571200,671220876625092844683849216000,354750674999711346878469083136000
%N a(0) = 1; thereafter a(n) = A105749(n)/n.
%p B := proc(n, k, M) local i; option remember;
%p if n = k then 1;
%p elif k < n then 0;
%p elif n < 1 then 0;
%p else
%p add( binomial(k-1,i)*B(n-1,k-1-i,M),i=0..M-1 );
%p end if;
%p end proc;
%p p:=proc(n,M) add(B(n,k,M),k=0..M*n); end;
%p l:=proc(n,M) n!*p(n,M); end;
%p [seq(l(n,2)/n,n=1..30)];
%Y Cf. A001515, A105749, A144906.
%K nonn
%O 0,2
%A _David Applegate_ and _N. J. A. Sloane_, Feb 16 2009
|
