login
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
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
Sequence in context: A087339 A345922 A216213 * A373942 A299973 A136971
KEYWORD
nonn,base
AUTHOR
Claudio Meller, May 30 2009
STATUS
approved