%I #14 Feb 20 2024 01:15:45

%S 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,

%T 23,22,24,23,23,22,21,22,21,20,19,24,23,23,22,21,23,22,22,21,20,21,20,

%U 19,18,22,21,21,20,19,20,19,18,17,19,18,17,16,15,36,35,35,34

%N Row sums of A370220.

%C See A370220 for more information.

%H Paolo Xausa, <a href="/A370290/b370290.txt">Table of n, a(n) for n = 1..10000</a>

%t zsums[m_] := With[{r = 2*Range[2, m]}, Reverse[Map[Total[#]+1 &, Select[Subsets[Range[2, 2*m-1], {m-1}], Min[r-#] > 0 &]]]];

%t Flatten[Array[zsums, 6]]

%Y Cf. A370220.

%K nonn

%O 1,2

%A _Paolo Xausa_, Feb 14 2024