|
%I #4 Jun 21 2014 16:55:52
%S 1,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,12871,24310,68068,75582,169728,
%T 203490,395352,490314,874312,1105885,1809523,2319967,3553845,4495635,
%U 6706767,8379039,12014983,15065623,20868122,25855787,35250728,43103655,57415602,70106277
%N Number of compositions of n in which the minimal multiplicity of parts equals 8.
%H Alois P. Heinz, <a href="/A244171/b244171.txt">Table of n, a(n) for n = 8..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, 8) -b(n$2, 0, 9):
%p seq(a(n), n=8..55);
%Y Column k=8 of A242451.
%K nonn
%O 8,17
%A _Alois P. Heinz_, Jun 21 2014
|
