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