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,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

Cf. A002385, A070247 and A070248.

Sequence in context: A224425 A179426 A229881 * A083977 A082442 A252101

Adjacent sequences: A070246 A070247 A070248 * A070250 A070251 A070252

Keyword

base,nonn

Author

Amarnath Murthy, May 05 2002

Extensions

Edited by Robert G. Wilson v, May 15 2002

Status

approved