OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1777
MATHEMATICA
Do[p = IntegerDigits[ Prime[n]]; If[ Plus @@ p == 10 && Reverse[p] == p, Print[ Prime[n]]], {n, 1, 10^10}]
Select[Prime[Range[4607*10^5]], PalindromeQ[#]&&Total[IntegerDigits[#]]==10&] (* Harvey P. Dale, May 28 2023 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 05 2002
EXTENSIONS
Edited and extended by Robert G. Wilson v and Jason Earls, May 06 2002
STATUS
approved