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
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jul 05 2003
STATUS
approved