A163502 a(n) is the smallest number which is divisible by n, is not equal to n and its digital sum is also divisible by n.

2, 4, 6, 8, 50, 24, 70, 80, 18, 190, 209, 48, 247, 266, 195, 448, 476, 198, 874, 3980, 399, 2398, 1679, 888, 4975, 1898, 999, 7588, 4988, 39990, 8959, 17888, 42999, 28798, 57995, 29988, 37999, 59888, 49998, 699880, 177899, 88998, 99889, 479996, 499995

Offset

1,1

Links

Table of n, a(n) for n=1..45.

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

Sequence in context: A059569 A083433 A083435 * A110995 A075401 A083145

Adjacent sequences: A163499 A163500 A163501 * A163503 A163504 A163505

Keyword

nonn,base

Author

Gaurav Kumar, Jul 29 2009

Status

approved