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

%I #4 May 15 2013 17:04:28

%S 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,

%T 70,72,80,81,84,90,100,102,108,111,117,120,126,135,144,153,162,171,

%U 180,200,201,204,207,209,210,216,222,225,234,240,243,252,261,270

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

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

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

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

%Y Cf. A005349.

%K nonn,base

%O 1,2

%A _Jayanta Basu_, May 15 2013