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

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A145659 A022214 A237509 * A253823 A371950 A316488

Adjacent sequences: A109182 A109183 A109184 * A109186 A109187 A109188

Keyword

base,nonn

Author

Zak Seidov, Jun 22 2005

Status

approved