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

Author

Jayanta Basu, May 15 2013

Keywords

• nonn
• base

Comments

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

Examples

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

Links

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

Crossrefs

Cf. A005349.

Programs

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] &]
Select[Range[300],With[{t=Total[IntegerDigits[#]]},Mod[#,t]==Mod[IntegerReverse[#],t]==0&]] (* Harvey P. Dale, Jan 30 2025 *)