editing
proposed
editing
proposed
palQ[n_]:=Reverse[x=IntegerDigits[n]]==x; Select[Range[4, 590], !PrimeQ[#]&&palQ[Total[Times@@@FactorInteger[#]]]&] (* Jayanta Basu, Jun 05 2013 *)
approved
editing
_Patrick De Geest (pdg(AT)worldofnumbers.com), _, Jun 15 1998.
proposed
approved
nonn,base
approved
proposed
0,1,1
nonn,new
nonn
nonn,new
nonn
Patrick De Geest (Patrick.DeGeest@pingpdg(AT)worldofnumbers.becom), June Jun 15 1998.
Numbers whose sum of prime factors is palindromic (counted with multiplicity).
4, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 24, 27, 28, 40, 45, 48, 54, 57, 62, 85, 102, 106, 116, 121, 123, 182, 194, 218, 259, 260, 278, 292, 298, 305, 308, 312, 351, 358, 366, 370, 388, 403, 413, 415, 428, 440, 444, 483, 495, 498, 508, 528, 548, 568, 575, 590
0,1
116 = 2 * 2 * 29 -> 2 + 2 + 29 = 33 and 33 is a palindrome.
nonn
Patrick De Geest (Patrick.DeGeest@ping.be), June 1998.
approved