OFFSET
1,5
EXAMPLE
MATHEMATICA
Table[Plus @@
Table[Plus @@
Map[Length[Union[#]] - Length[Union[Length /@ Split[#]]] &,
IntegerPartitions[n, {k}]], {k, 1, n}], {n, 1, 40}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Olivier Gérard, May 29 2024
STATUS
approved