%I #19 Mar 08 2024 11:58:06
%S 2,11,12,15,20,32,35,66,72,80,101,102,104,105,110,144,161,165,168,212,
%T 216,224,264,294,300,338,363,368,380,413,420,432,455,459,462,480,504,
%U 546,561,572,602,656,660,672,690,765,770,800,806,840,893,897,918,923
%N Numbers n that are multiples of the digital sum of n-1.
%C 72 = 9 * ds(71) = 9*(7+1) = 9*8; 144 = 18 * ds(143) = 18 * (1+4+3) = 18 * 8.
%H Muniru A Asiru, <a href="/A160948/b160948.txt">Table of n, a(n) for n = 1..1000</a>
%o (PARI) isok(n) = (n != 1) && !(n % sumdigits(n-1)); \\ _Michel Marcus_, Apr 17 2018
%o (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
%Y Cf. A007953, A160947.
%K nonn,base
%O 1,1
%A _Claudio Meller_, May 30 2009