A225780 Numbers such that both n and its reversal are divisible by sum of digits of n.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 18, 20, 21, 24, 27, 30, 36, 40, 42, 45, 48, 50, 54, 60, 63, 70, 72, 80, 81, 84, 90, 100, 102, 108, 111, 117, 120, 126, 135, 144, 153, 162, 171, 180, 200, 201, 204, 207, 209, 210, 216, 222, 225, 234, 240, 243, 252, 261, 270

Offset

1,2

Comments

Subset of A005349 - first member of A005349 missing here is 110.

Links

Table of n, a(n) for n=1..60.

Example

117 is a member since both 117 and 711 are divisible by 9.

Mathematica

d[n_]:=IntegerDigits[n]; sod[n_]:=Total[d[n]]; rev[n_]:=FromDigits[Reverse[d[n]]]; Select[Range[270], IntegerQ[#/(x = sod[#])] && IntegerQ[rev[#]/x] &]

Crossrefs

Cf. A005349.

Sequence in context: A005349 A234474 A285829 * A225782 A235507 A235697

Adjacent sequences: A225777 A225778 A225779 * A225781 A225782 A225783

Keyword

nonn,base

Author

Jayanta Basu, May 15 2013

Status

approved