%I #10 Jun 25 2024 05:26:43
%S 1,5,6,7,12,8,13,14,9,14,15,16,22,10,15,16,17,23,18,24,25,11,16,17,18,
%T 24,19,25,26,20,26,27,28,35,12,17,18,19,25,20,26,27,21,27,28,29,36,22,
%U 28,29,30,37,31,38,39,13,18,19,20,26,21,27,28,22,28,29,30
%N Row sums of A373556.
%H Paolo Xausa, <a href="/A373854/b373854.txt">Table of n, a(n) for n = 1..10000</a>
%t Join[{1}, Map[Total[PositionIndex[Reverse[IntegerDigits[#, 2]]][1]] &, Select[Range[2, 2000, 2], DigitCount[#, 2, 1] == IntegerExponent[#, 2] + 1 &]]]
%Y Cf. A373346, A373556, A373853.
%K nonn,base,easy
%O 1,2
%A _Paolo Xausa_, Jun 19 2024