STATUS
proposed
proposed
editing
approved
editing
b:= proc(n, i, l, k) option remember;
if n<0 then 0
elif n=0 then `if` (l in [-1, k], 1, 0)
elif i=0 then 0
else b(n, i-1, `if`(l in [-1, k], -1, 0), k) +
b(n-i, i, `if`(l=-1, -1, `if` (l<=k, l+1, l)), k)
fi
a:= n-> b(n, n, -1, 0) -b(n, n, 0, 5):
seq (a(n), n=0..50);
approved
Alois P. Heinz (heinz(AT)hs-heilbronn.de), Jan 18 2011
editing
a(5) = 6, because 6 partitions of 5 have no parts with multiplicity 5: 1+1+1+2, 1+2+2, 1+1+3, 2+3, 1+4, 5.
approved
proposed
allocated for Alois P. Heinz
allocated
approved