login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Primes whose sum of nonprime digits is also prime.
2

%I #10 Mar 21 2020 14:13:36

%S 11,41,61,89,101,113,131,151,163,167,191,199,211,241,311,349,389,401,

%T 409,421,431,439,449,461,479,541,601,613,617,631,641,661,761,809,829,

%U 839,859,881,911,919,947,983,991,1013,1019,1021,1031,1051,1063,1091

%N Primes whose sum of nonprime digits is also prime.

%H Harvey P. Dale, <a href="/A085564/b085564.txt">Table of n, a(n) for n = 1..1000</a>

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

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

%K base,easy,nonn

%O 1,1

%A _Jason Earls_, Jul 05 2003