OFFSET
1,4
FORMULA
a(n) = Sum_{i=1..n} A232466(i).
EXAMPLE
The set {1,2,3,4,5,6} has 17 subsets as described, one of which is {1,2,4,5,6}, which partitions as {{1,2,6},{4,5}}
MATHEMATICA
b[n_, i_] := b[n, i] = If[i < 1, If[n == 0, {0}, {}], If[i*(i + 1)/2 < n, {},
b[n, i - 1]~Union~Map[Function[p, p + x^i], b[n + i, i - 1]~Union~b[Abs[n - i], i -1]]]]; Accumulate[Table[Length[b[n, n - 1]], {n, 1, 20}]]
(* after Jean-François Alcover; see A232466 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Clark Kimberling, Sep 17 2022
EXTENSIONS
a(26) from Alois P. Heinz, Sep 17 2022
STATUS
approved