|
|
A160948
|
|
Numbers n that are multiples of the digital sum of n-1.
|
|
3
|
|
|
2, 11, 12, 15, 20, 32, 35, 66, 72, 80, 101, 102, 104, 105, 110, 144, 161, 165, 168, 212, 216, 224, 264, 294, 300, 338, 363, 368, 380, 413, 420, 432, 455, 459, 462, 480, 504, 546, 561, 572, 602, 656, 660, 672, 690, 765, 770, 800, 806, 840, 893, 897, 918, 923
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
72 = 9 * ds(71) = 9*(7+1) = 9*8; 144 = 18 * ds(143) = 18 * (1+4+3) = 18 * 8.
|
|
LINKS
|
|
|
PROG
|
(PARI) isok(n) = (n != 1) && !(n % sumdigits(n-1)); \\ Michel Marcus, Apr 17 2018
(GAP) a:=List(Filtered(List([2..700], m->[m, List(List(List([1..m], n->n-1), ListOfDigits), Sum)[m]]), i->i[1] mod i[2]=0), j->j[1]); # Muniru A Asiru, Apr 17 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|