login
Row sums of triangle A141803.
2

%I #5 Jun 18 2018 15:54:55

%S 1,2,3,5,8,7,15,15,18,22,33,25,40,44,47,49,64,64,83,77,86,97,119,105,

%T 123,137,145,150,177,162,195,193,214,229,250,227,264,283,302,292,333,

%U 321,363,368,376,398,446,419,455,465,489,505,551,542,580,567,602,631

%N Row sums of triangle A141803.

%H Ivan Neretin, <a href="/A141804/b141804.txt">Table of n, a(n) for n = 1..10000</a>

%e a(5) = 8 since row 5 of triangle A141803 = (1 + 2 + 3 + 2 + 0).

%t Table[Total@Table[Mod[Total@IntegerDigits[n - i, i], i], {i, n - 1, 2, -1}], {n, 3, 60}] (* _Ivan Neretin_, Jun 18 2018 *)

%Y Cf. A141803.

%K nonn

%O 1,2

%A _Gary W. Adamson_, Jul 06 2008

%E More terms from _Ivan Neretin_, Jun 18 2018