A134516 Numbers that are divisible by 2*(sum of their digits).

10, 12, 18, 20, 24, 30, 36, 40, 48, 50, 54, 60, 70, 72, 80, 90, 100, 102, 108, 112, 120, 126, 132, 140, 144, 162, 180, 192, 200, 204, 210, 216, 224, 230, 234, 240, 252, 264, 270, 280, 288, 300, 306, 308, 312, 320, 322, 324, 336, 342, 360, 364, 392, 396, 400

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

n = 120: 2*sum of digits(120) = 6, and 120 is divisible by 6, so it belongs to the sequence.

Mathematica

Select[Range[2, 200, 2], Divisible[#, 2*Total[IntegerDigits[#]]]&] (* Harvey P. Dale, Mar 31 2018 *)

Crossrefs

Cf. A005349.

Sequence in context: A247627 A327709 A129120 * A144363 A051247 A242335

Adjacent sequences: A134513 A134514 A134515 * A134517 A134518 A134519

Keyword

base,nonn

Author

Ctibor O. Zizka, Jan 22 2008

Extensions

More terms from Harvey P. Dale, Mar 31 2018

Status

approved