OFFSET
1,1
COMMENTS
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..4732
MATHEMATICA
Select[Prime[Range[5940000]], PalindromeQ[#]&&Total[IntegerDigits[#]]==20&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 19 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Zak Seidov, Jun 22 2005
STATUS
approved