OFFSET
1,7
COMMENTS
See A370222 for more information.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..10000
MATHEMATICA
csums[m_] := With[{r = 2*Range[2, m]-1}, Reverse[Map[Total[r-#] &, Select[Subsets[Range[2, 2*m-1], {m-1}], Min[r-#] >= 0 &]]]];
Flatten[Array[csums, 6]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Paolo Xausa, Feb 17 2024
STATUS
approved