OFFSET
1,2
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
KEYWORD
nonn,base
AUTHOR
Jayanta Basu, May 15 2013
STATUS
approved