OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
E.g. a(38)=3812183: 83+38=121 and 38_121_83 is a palindrome.
MATHEMATICA
f[n_]:=FromDigits[Join[IntegerDigits[n], IntegerDigits[n+ IntegerReverse[ n]], Reverse[ IntegerDigits[n]]]]; Table[If[PalindromeQ[f[n]], f[n], 0], {n, 50}] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Aug 13 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Meenakshi Srikanth (menakan_s(AT)yahoo.com), Jul 01 2003
EXTENSIONS
New description from Charles R Greathouse IV, Aug 02 2010
Corrected and extended by Harvey P. Dale, Aug 13 2018
STATUS
approved