OFFSET
1,3
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..58
Wikipedia, Partition (number theory)
EXAMPLE
a(4) = 5:
4 -> 1111
4 -> 211 -> 1111
4 -> 31 -> 1111
4 -> 31 -> 211 -> 1111
4 -> 22 -> 211 -> 1111
MAPLE
v:= l-> [seq(`if`(i=1 or l[i]>l[i-1], seq(subs(1=[][], sort(
subsop(i=h[], l))), h=({combinat[partition](l[i])[]}
minus{[l[i]]})), [][]), i=1..nops(l))]:
b:= proc(l) option remember; `if`(max(l)<2, 1, add(b(h), h=v(l))) end:
a:= n-> b([n]):
seq(a(n), n=1..26);
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Sep 22 2019
STATUS
approved