login
A247110
n + reversal of digits of n, when n is not palindromic
0
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,1
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 *)
CROSSREFS
Cf. A056964 (n + reversal of digits of n)
Sequence in context: A038634 A373047 A062697 * A022671 A029516 A061833
KEYWORD
nonn,base
AUTHOR
Morgan L. Owens, Nov 21 2014
STATUS
approved