|
%I #8 Nov 18 2018 00:22:34
%S 1,22,36,376,745,378,2758,3232,405,6040,13684,3528,16198,19474,10575,
%T 34384,35479,10674,65854,178600,48321,108394,161575,117000,445225,
%U 392158,136404,695800,778882,2011950,1332349,1806496,1849320,2563600
%N Row sums in A082259.
%t Do[s = t = 0; i = 1; While[t < n, If[Plus @@ IntegerDigits[i*n] == n, t++; s += i*n]; i++ ]; Print[s], {n, 1, 50}] (* _Ryan Propper_, Jul 16 2005 *)
%Y Cf. A082259, A082260, A082262, A082263, A002998.
%K base,nonn
%O 1,2
%A _Amarnath Murthy_, Apr 12 2003
%E Corrected and extended by _Ryan Propper_, Jul 16 2005
|
