|
| |
|
|
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.
|
|
0
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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
|
| |
|
|
