A085564 Primes whose sum of nonprime digits is also prime.

11, 41, 61, 89, 101, 113, 131, 151, 163, 167, 191, 199, 211, 241, 311, 349, 389, 401, 409, 421, 431, 439, 449, 461, 479, 541, 601, 613, 617, 631, 641, 661, 761, 809, 829, 839, 859, 881, 911, 919, 947, 983, 991, 1013, 1019, 1021, 1031, 1051, 1063, 1091

Offset

1,1

Links

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

Example

a(100)=1993 because it is prime and 1+9+9=19, a prime.

Mathematica

snpdQ[n_]:=PrimeQ[Total[Select[IntegerDigits[n], !PrimeQ[#]&]]]; Select[ Prime[Range[200]], snpdQ] (* Harvey P. Dale, Mar 21 2020 *)

Crossrefs

Sequence in context: A040167 A040170 A333085 * A158205 A179446 A260269

Adjacent sequences: A085561 A085562 A085563 * A085565 A085566 A085567

Keyword

base,easy,nonn

Author

Jason Earls, Jul 05 2003

Status

approved