A247110 n + reversal of digits of n, when n is not palindromic.
11, 33, 44, 55, 66, 77, 88, 99, 110, 22, 33, 55, 66, 77, 88, 99, 110, 121, 33, 44, 55, 77, 88, 99, 110, 121, 132, 44, 55, 66, 77, 99, 110, 121, 132, 143, 55, 66, 77, 88, 99, 121, 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
Offset: 10
Crossrefs
Cf. A056964 (n + reversal of digits of n)
Programs
-
Mathematica
With[{n=50}, (FromDigits[#] + FromDigits[Reverse[#]]) & /@ Select[IntegerDigits[Range[n]], # != Reverse[#] &]] Table[If[n==IntegerReverse[n],Nothing,n+IntegerReverse[n]],{n,100}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 29 2016 *)