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

Author

Amarnath Murthy, May 05 2002

Keywords

• base
• nonn

Links

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

Crossrefs

Cf. A002385, A070247, A070248, A070249.

Programs

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

Extensions

Edited and extended by Robert G. Wilson v and Jason Earls, May 06 2002