OFFSET
1,2
EXAMPLE
75 is a term because 75 + 7! = 5115.
MATHEMATICA
Select[Range[2600], PalindromeQ[#+Max[IntegerDigits[#]]!]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Nov 11 2020 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 11 2004
STATUS
approved