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