OFFSET
1,2
COMMENTS
a(p)=0 for primes p which are not in A002385.
The first runs of 2, 3 and 4 identical values start at a(5), a(370) and a(2776191), respectively. - Giovanni Resta, Sep 09 2015
MAPLE
MATHEMATICA
palQ[n_] := Block[{d = IntegerDigits@ n}, d == Reverse@ d]; {0}~Join~
Table[Total@ Select[Flatten[Table[#1, {#2}] & @@@ FactorInteger@ n], palQ], {n, 2, 75}] (* Michael De Vlieger, Sep 09 2015 *)
Join[{0}, Table[Total[Times@@@Select[FactorInteger[n], PalindromeQ[#[[1]]]&]], {n, 2, 80}]] (* Harvey P. Dale, Sep 05 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
R. J. Mathar, Sep 09 2015
STATUS
approved