A070248 Palindromic primes with digit sum 7.

7, 151, 313, 10501, 11311, 30103, 1201021, 3001003, 100050001, 100131001, 101030101, 110111011, 111010111, 10000500001, 1100011100011, 1100101010011, 100020010020001

Offset: 1

Author

Amarnath Murthy, May 05 2002

Keywords

• base
• nonn

Links

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

Crossrefs

Cf. A002385, A070247 & A070249.

Programs

Mathematica

Do[p = Join[ IntegerDigits[n], Reverse[ Drop[ IntegerDigits[n], -1]]]; q = Plus @@ p; If[ PrimeQ[ FromDigits[p]] && q == 7, Print[ FromDigits[p]]], {n, 1, 10^7}]

Extensions

Edited by Robert G. Wilson v, May 15 2002