OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[20], AllTrue[{3^#+2, 2^#+3}, PrimeQ]&] (* Harvey P. Dale, Sep 02 2022 *)
PROG
(PARI) for(n=0, 1000, if(isprime(2^n+3)&&isprime(3^n+2), print(n)))
CROSSREFS
KEYWORD
more,nonn
AUTHOR
Zak Seidov, Jan 29 2008
STATUS
approved