A160947 Numbers k that are multiples of the digital sum of k+1.

9, 10, 12, 16, 40, 42, 55, 90, 96, 99, 100, 105, 120, 130, 154, 156, 160, 180, 187, 220, 231, 232, 238, 253, 270, 273, 300, 304, 310, 352, 360, 364, 384, 390, 400, 420, 450, 451, 490, 493, 507, 520, 528, 540, 550, 598, 609, 616, 624, 630, 646, 649, 672, 684

Offset

1,1

Links

Muniru A Asiru, Table of n, a(n) for n = 1..1900

Example

232 is in the sequence because 232 = 29 * ds(233) = 29*8.
684 is in the sequence because 684 = 36 * ds(685) = 36*19.

Mathematica

Select[Range[800], Divisible[#, Total[IntegerDigits[# + 1]]] &] (* Vincenzo Librandi, Apr 18 2018 *)

Prog

(PARI) isok(n) = !(n % sumdigits(n+1)); \\ Michel Marcus, Apr 17 2018
(GAP) a:=List(Filtered(List([1..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
(Magma) [n: n in [1..800] | n mod &+Intseq(n+1) eq 0]; // Vincenzo Librandi, Apr 18 2018

Crossrefs

Cf. A007953, A160948.

Sequence in context: A048592 A190665 A242475 * A158581 A343258 A078459

Adjacent sequences: A160944 A160945 A160946 * A160948 A160949 A160950

Keyword

nonn,base

Author

Claudio Meller, May 30 2009

Status

approved