A370290 Row sums of A370220.

1, 4, 3, 9, 8, 8, 7, 6, 16, 15, 15, 14, 13, 15, 14, 14, 13, 12, 13, 12, 11, 10, 25, 24, 24, 23, 22, 24, 23, 23, 22, 21, 22, 21, 20, 19, 24, 23, 23, 22, 21, 23, 22, 22, 21, 20, 21, 20, 19, 18, 22, 21, 21, 20, 19, 20, 19, 18, 17, 19, 18, 17, 16, 15, 36, 35, 35, 34

Offset: 1

Author

Paolo Xausa, Feb 14 2024

Keywords

• nonn

Comments

See A370220 for more information.

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A370220.

Programs

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]]