|
%I #6 May 29 2014 18:50:29
%S 1,0,7,7,35,63,176,378,889,1946,4298,9282,18999,40565,84371,169372,
%T 340683,684957,1359758,2650942,5142116,10008642,19123713,36370362,
%U 68799767,129920385,241668105,450604609,830903577,1529103100,2800280316,5100363926,9233845628
%N Number of compositions of n in which the maximal multiplicity of parts equals 6.
%H Alois P. Heinz, <a href="/A243123/b243123.txt">Table of n, a(n) for n = 6..1000</a>
%F a(n) = A243084(n) - A243083(n) = A243081(n,6) - A243081(n,5).
%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..min(n/i, k))))
%p end:
%p a:= n-> b(n$2, 0, 6) -b(n$2, 0, 5):
%p seq(a(n), n=6..50);
%Y Column k=6 of A242447.
%K nonn
%O 6,3
%A _Alois P. Heinz_, May 29 2014
|
