A082261 Row sums in A082259.

1, 22, 36, 376, 745, 378, 2758, 3232, 405, 6040, 13684, 3528, 16198, 19474, 10575, 34384, 35479, 10674, 65854, 178600, 48321, 108394, 161575, 117000, 445225, 392158, 136404, 695800, 778882, 2011950, 1332349, 1806496, 1849320, 2563600

Offset: 1

Author

Amarnath Murthy, Apr 12 2003

Keywords

• base
• nonn

Crossrefs

Cf. A082259, A082260, A082262, A082263, A002998.

Programs

Mathematica

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 *)

Extensions

Corrected and extended by Ryan Propper, Jul 16 2005