Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #11 Oct 10 2019 22:52:52
%S 9,15,27,45,121,495,735,875,1331,1701,2025,2101,2121,2525,2751,3171,
%T 3275,3775,3801,4525,5445,6573,7413,7825,7833,8043,8085,8595,8767,
%U 8825,9325,9575,9625,10201,12005,13231,14641,15251,15267,15897,16527,17161
%N Odd numbers with only palindromic prime factors whose sum is palindromic (counted with multiplicity).
%e 8767 = 11 * 797 -> 11 + 797 = 808 and 808 is a palindrome.
%t 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 *)
%Y Cf. A046355, A046357.
%K nonn,base
%O 0,1
%A _Patrick De Geest_, Jun 15 1998