A070250 Palindromic primes with digit sum 10.

181, 12421, 30403, 1008001, 1114111, 1212121, 100161001, 100404001, 101060101, 101141101, 102040201, 102202201, 104000401, 130020031, 140000041, 10001610001, 10013031001, 10100600101, 10102220101, 10130003101

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

Cf. A002385, A070247, A070248, A070249.

Sequence in context: A008379 A262141 A212938 * A380785 A226714 A083979

Adjacent sequences: A070247 A070248 A070249 * A070251 A070252 A070253

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