OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
EXAMPLE
689 = 13 * 53 -> 13 + 53 = 66 and 66 is a palindrome.
MATHEMATICA
palQ[n_]:=Reverse[x=IntegerDigits[n]]==x; Select[Range[9, 1545, 2], !PrimeQ[#]&&palQ[Total[Times@@@FactorInteger[#]]]&] (* Jayanta Basu, Jun 05 2013 *)
PROG
(Python)
from sympy import factorint
def is_046353(n):
if n % 2 == 0: return False
f = factorint(n)
if sum([f[i] for i in f]) < 2: return False
sfa = sum([i*f[i] for i in f])
if sfa == int(str(sfa)[::-1]): return True
return False # John Cerkan, Apr 24 2018
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Name clarified and offset changed by John Cerkan, Apr 24 2018
STATUS
approved