|
%I #27 Sep 29 2016 16:33:12
%S 11,33,44,55,66,77,88,99,110,22,33,55,66,77,88,99,110,121,33,44,55,77,
%T 88,99,110,121,132,44,55,66,77,99,110,121,132,143,55,66,77,88,99,121,
%U 132,143,154,66,77,88,99,110,121,143,154,165,77,88,99,110,121,132,143,165,176,88,99,110,121,132,143,154,165,187,99,110,121
%N n + reversal of digits of n, when n is not palindromic
%t With[{n=50}, (FromDigits[#] + FromDigits[Reverse[#]]) & /@ Select[IntegerDigits[Range[n]], # != Reverse[#] &]]
%t Table[If[n==IntegerReverse[n],Nothing,n+IntegerReverse[n]],{n,100}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 29 2016 *)
%Y Cf. A056964 (n + reversal of digits of n)
%K nonn,base
%O 10,1
%A _Morgan L. Owens_, Nov 21 2014
|
