OFFSET
1,1
COMMENTS
Includes every palindrome > 22 whose first digit is not 1. - Robert Israel, Mar 17 2015
EXAMPLE
202 = 191 + 11 and all are palindromes.
MATHEMATICA
With[{pals=Select[Range[1000], IntegerDigits[#]==Reverse[ IntegerDigits[ #]]&]}, Select[ Union[Select[Total/@Subsets[pals, {2}], IntegerDigits[#] == Reverse[IntegerDigits[#]]&]], #>9&]] (* Harvey P. Dale, Mar 16 2015 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Erich Friedman, Jul 04 2001
EXTENSIONS
Corrected by Harvey P. Dale, Mar 16 2015
STATUS
approved