A046357 Composite palindromes with only palindromic prime factors whose sum is palindromic (counted with multiplicity).
4, 6, 8, 9, 121, 1331, 5445, 10201, 13231, 14641, 15251, 18281, 19291, 31613, 35653, 37673, 38683, 52525, 59895, 1030301, 1336331, 3192913, 8117118, 104060401, 134969431, 286121682, 319464913, 677707776
Offset: 1
Examples
319464913 = 10301 * 31013 and 10301 + 31013 = 41314 and all are palindromic.
Programs
-
Mathematica
palQ[n_]:= Reverse[x=IntegerDigits[n]] == x; t={}; Do[If[!PrimeQ[n] && And@@palQ/@Join[{n, Total[Times@@@(x=FactorInteger[n])]}, First/@x], AppendTo[t,n]],{n, 2, 3.2*10^6}]; t (* Jayanta Basu, Jun 05 2013 *)