OFFSET
1,1
LINKS
Jens Ahlström, Table of n, a(n) for n = 1..5853
Hackerearth, Optimus prime
MATHEMATICA
Select[Range[800], And @@ PrimeQ[{#, Count[IntegerDigits[#], _?PrimeQ]}] &] (* Amiram Eldar, Nov 04 2021 *)
PROG
(Python)
from sympy import isprime as i
from sympy import primerange as p
print([x for x in p(1, 800) if i(len([d for d in str(x) if i(int(d))]))])
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jens Ahlström, Oct 30 2021
STATUS
approved