OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..1757
MATHEMATICA
Do[p = Join[ IntegerDigits[n], Reverse[ Drop[ IntegerDigits[n], -1]]]; q = Plus @@ p; If[ PrimeQ[ FromDigits[p]] && q == 8, Print[ FromDigits[p]]], {n, 1, 10^7}]
Select[Prime[Range[1626*10^4]], Total[IntegerDigits[#]]==8&&PalindromeQ[#]&] (* The program generates the first 13 terms of the sequence. *) (* Harvey P. Dale, Jul 18 2022 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, May 05 2002
EXTENSIONS
Edited by Robert G. Wilson v, May 15 2002
STATUS
approved