OFFSET
1,1
EXAMPLE
a(5) = 50 because 50 is the smallest number(not equal to the number itself) which is divisible by 5 and its digital sum is divisible by 5.
MATHEMATICA
sndn[n_]:=Module[{k=2}, While[!Divisible[Total[IntegerDigits[k*n]], n], k++]; k*n]; Array[sndn, 50] (* Harvey P. Dale, Feb 27 2015 *)
PROG
(PARI) a(n) = {k = 2; while (sumdigits(k*n) % n, k++); k*n; } \\ Michel Marcus, Oct 09 2013
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Gaurav Kumar, Jul 29 2009
STATUS
approved