A244167 - OEIS

%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