|
%I #5 May 29 2014 16:57:47
%S 1,1,2,4,8,16,32,63,127,247,494,960,1892,3672,7147,13798,26581,50929,
%T 97196,184578,348856,659351,1232960,2297710,4293741,7938967,14597060,
%U 26899716,49245147,89549454,162797168,294737328,530981823,953222139,1708323110,3043849193
%N Number of compositions of n into parts with multiplicity not larger than 6.
%C Number of compositions of n avoiding the pattern {1}^7.
%H Alois P. Heinz, <a href="/A243084/b243084.txt">Table of n, a(n) for n = 0..1000</a>
%p b:= proc(n, i, p) option remember; `if`(n=0, p!, `if`(i<1, 0,
%p add(b(n-i*j, i-1, p+j)/j!, j=0..min(n/i, 6))))
%p end:
%p a:= n-> b(n$2, 0):
%p seq(a(n), n=0..50);
%Y Column k=6 of A243081.
%K nonn
%O 0,3
%A _Alois P. Heinz_, May 29 2014
|
