Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%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