A160947 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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