OFFSET
1,1
FORMULA
EXAMPLE
a(60)=45 because 666 = 2 * 3 * 3 * 37 and 45 = 2 + 3 + 3 + 37.
MATHEMATICA
t={}; Do[If[!PrimeQ[n]&&Reverse[x=IntegerDigits[n]]==x, AppendTo[t, Total[Times@@@FactorInteger[n]]]], {n, 4, 740}]; t (* Jayanta Basu, Jun 04 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Jun 15 1998
EXTENSIONS
Offset set to 1. - R. J. Mathar, Sep 09 2015
STATUS
approved