OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..2014
EXAMPLE
116 = 2 * 2 * 29 -> 2 + 2 + 29 = 33 and 33 is a palindrome.
MAPLE
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 if;
end do: # R. J. Mathar, Sep 09 2015
MATHEMATICA
palQ[n_]:=Reverse[x=IntegerDigits[n]]==x; Select[Range[4, 590], !PrimeQ[#]&&palQ[Total[Times@@@FactorInteger[#]]]&] (* Jayanta Basu, Jun 05 2013 *)
Select[Range@1000, CompositeQ@#&&PalindromeQ[Dot@@Transpose[FactorInteger@#]]&] (* Hans Rudolf Widmer, Dec 21 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
STATUS
approved