|
%I #4 Jun 21 2014 16:31:25
%S 1,0,0,0,1,0,0,0,71,126,336,330,776,841,1541,1821,2951,3221,5322,5697,
%T 43288,99626,313917,807218,2049995,4769054,10240287,22002219,45015647,
%U 90239153,177239582,342276724,650127448,1223160912,2275920969,4197371497,7754873919
%N Number of compositions of n in which the minimal multiplicity of parts equals 4.
%H Alois P. Heinz, <a href="/A244167/b244167.txt">Table of n, a(n) for n = 4..400</a>
%p b:= proc(n, i, p, k) option remember; `if`(n=0, p!, `if`(i<1, 0,
%p add(b(n-i*j, i-1, p+j, k)/j!, j=[0, $max(1, k)..n/i])))
%p end:
%p a:= n-> b(n$2, 0, 4) -b(n$2, 0, 5):
%p seq(a(n), n=4..50);
%Y Column k=4 of A242451.
%K nonn
%O 4,9
%A _Alois P. Heinz_, Jun 21 2014
|
