A070249 Palindromic primes with digit sum 8.

10601, 11411, 30203, 31013, 1022201, 1120211, 1300031, 3002003, 100060001, 103000301, 111020111, 300020003, 300101003, 10002220001, 10200200201, 10210001201, 1000030300001, 1021000001201, 1030000000301, 1101010101011

Offset: 1

Author

Amarnath Murthy, May 05 2002

Keywords

• base
• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..1757

Crossrefs

Cf. A002385, A070247 and A070248.

Programs

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 *)

Extensions

Edited by Robert G. Wilson v, May 15 2002