A109185 Palindromic primes with digit sum = 40.

97879, 98689, 1878781, 1968691, 1976791, 1984891, 3768673, 3784873, 3792973, 3858583, 3948493, 3964693, 7278727, 7392937, 7466647, 7564657, 7654567, 7662667, 7850587, 7916197, 9078709, 9446449, 9470749, 9626269, 9634369

Offset: 1

Author

Zak Seidov, Jun 22 2005

Keywords

• base
• nonn

Comments

Cf. A070250 Palindromic primes with digit sum = 10, A107579 Primes with digit sum = 10, A106760 Primes with digit sum = 20, A109184 Palindromic primes with digit sum = 20, A109207 Palindromic primes with digit sum = 50.

Links

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

Crossrefs

Cf. A070250, A106760, A107579, A109184, A109207.

Programs

Mathematica

Select[Prime@ Range[9000, 10^6], And[# == Reverse@ #, Total@ # == 40] &@ IntegerDigits@ # &] (* Michael De Vlieger, Dec 18 2015 *)

PARI

isok(n) = isprime(n) && (d=digits(n)) && (Vecrev(d)==d) && (sumdigits(n)==40); \\ Michel Marcus, Dec 18 2015