OFFSET
0,1
EXAMPLE
8767 = 11 * 797 -> 11 + 797 = 808 and 808 is a palindrome.
MATHEMATICA
palQ[n_] := Reverse[x=IntegerDigits[n]] == x; Select[Range[9, 17170, 2], !PrimeQ[#] && And@@palQ/@Join[{Total[Times@@@(x=FactorInteger[#])]}, First/@x]&] (* Jayanta Basu, Jun 05 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved