Select[Prime[Range[1600]], AllTrue[{PrimePi[#], Total[IntegerDigits[#]], IntegerLength[ #]}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 15 2019 *)
CROSSREFS
Cf. A046704 Additive primes: sum of digits is a prime, A088136 Primes such that sum of first and last digits is prime, A109981 Primes such that the sum of digits and the number of digits are primes.