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