|
%I #4 Sep 17 2013 19:03:41
%S 1,7,56,420,3150,24024,187110,1497210,12321309,104379275,910501592,
%T 8176340536,75557540604,718108992888,7015008076980,70388350377492,
%U 724955013327237,7658820319677219,82939240748756392,920067296840668900,10448713239329294930
%N Number of set partitions of {1,...,n} with largest set of size 6.
%H Alois P. Heinz, <a href="/A229248/b229248.txt">Table of n, a(n) for n = 6..500</a>
%F E.g.f.: exp(Sum_{j=1..6} x^j/j!) - exp(Sum_{j=1..5} x^j/j!).
%p G:= proc(n, k) option remember; local j; if k>n then G(n, n)
%p elif n=0 then 1 elif k<1 then 0 else G(n-k, k);
%p for j from k-1 to 1 by -1 do %*(n-j)/j +G(n-j, k) od; % fi
%p end:
%p a:= n-> G(n,6)-G(n,5):
%p seq(a(n), n=6..30);
%Y Column k=6 of A080510.
%K nonn
%O 6,2
%A _Alois P. Heinz_, Sep 17 2013
|
