reviewed
approved
proposed
editing
Select[Range@1000, CompositeQ@#&&PalindromeQ[Dot@@Transpose[FactorInteger@#]]&] (* Hans Rudolf Widmer, Dec 21 2022 *)
Patrick De Geest, Jun 15 1998.
NumbersComposite numbers whose sum of prime factors is palindromic (counted with multiplicity).
R. J. Mathar, <a href="/A046352/b046352.txt">Table of n, a(n) for n = 1..2014</a>
n := 1 ;
for i from 2 to 30000 do
if not isprime(i) then
sof := A001414(i) ;
if isA002113(sof) then
printf("%d %d\n", n, i) ;
n := n+1 ;
end if;
end do: # R. J. Mathar, Sep 09 2015
