|
%I #6 May 29 2014 18:51:22
%S 1,0,8,8,44,80,236,513,1246,2780,6280,13786,30070,64696,134585,285384,
%T 594786,1207084,2453682,4972098,9946044,19646041,38691878,75939596,
%U 147425468,283809162,546291230,1042095956,1977521091,3730060870,7022446786,13104269980
%N Number of compositions of n in which the maximal multiplicity of parts equals 7.
%H Alois P. Heinz, <a href="/A243124/b243124.txt">Table of n, a(n) for n = 7..1000</a>
%F a(n) = A243085(n) - A243084(n) = A243081(n,7) - A243081(n,6).
%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, 7) -b(n$2, 0, 6):
%p seq(a(n), n=7..50);
%Y Column k=7 of A242447.
%K nonn
%O 7,3
%A _Alois P. Heinz_, May 29 2014
|
