OFFSET
0,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..5000
EXAMPLE
For n = 4 there are 29 parts in all partitions of 4 with designated summands. They are [4'], [3'+ 1'], [2'+ 2], [2 + 2'], [2'+ 1'+ 1], [2'+ 1 + 1'], [1'+ 1 + 1 + 1], [1 + 1'+ 1 + 1], [1 + 1 + 1'+ 1], [1 + 1 + 1 + 1'], so a(4) = 29.
MAPLE
b:= proc(n, i) option remember; `if`(n=0, [1, 0], `if`(i<1, 0,
b(n, i-1)+add((p-> p+[0, p[1]*j])(b(n-i*j, i-1)*j), j=1..n/i)))
end:
a:= n-> b(n$2)[2]:
seq(a(n), n=0..38); # Alois P. Heinz, Oct 09 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
Omar E. Pol, Sep 14 2025
EXTENSIONS
More terms from Alois P. Heinz, Sep 14 2025
STATUS
approved
