A094317 Primes with the property that the sum of the digits that are primes is prime.

2, 3, 5, 7, 13, 17, 23, 29, 31, 43, 47, 59, 67, 71, 79, 83, 97, 103, 107, 113, 131, 139, 151, 163, 167, 179, 193, 197, 211, 223, 227, 239, 241, 251, 263, 269, 281, 283, 293, 311, 337, 349, 353, 373, 389, 421, 431, 439, 443, 463, 467, 479, 487, 509

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Select[Prime[Range[100]], PrimeQ[Total[Select[IntegerDigits[#], PrimeQ]]]&] (* Harvey P. Dale, Oct 22 2025 *)

Crossrefs

Cf. A094318.

Sequence in context: A347864 A137812 A216578 * A074834 A163998 A197299

Adjacent sequences: A094314 A094315 A094316 * A094318 A094319 A094320

Keyword

nonn,base

Author

Harvey Dale, May 31 2004

Status

approved