STATUS
reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
In general rebase notation (Marc LeBrun): p(n) p9 = (9) [p] (10).
approved
editing
editing
approved
Select[Prime[Range[400]], PrimeQ[FromDigits[IntegerDigits[#, 9], 10]]&] (* Harvey P. Dale, Sep 19 2021 *)
approved
editing
proposed
approved
editing
proposed
(PARI) isok(p) = isprime(p) && isprime(fromdigits(digits(p, 9))); \\ Michel Marcus, Jul 02 2020