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