OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
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] &]
Select[Range[300], With[{t=Total[IntegerDigits[#]]}, Mod[#, t]==Mod[IntegerReverse[#], t]==0&]] (* Harvey P. Dale, Jan 30 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 15 2013
STATUS
approved