login
A082261
Row sums in A082259.
4
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,2
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 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Apr 12 2003
EXTENSIONS
Corrected and extended by Ryan Propper, Jul 16 2005
STATUS
approved