OFFSET
1,1
MATHEMATICA
Select[Range[2, 15000, 2], PrimeQ[3^# + 2^# + 10] &]
PROG
(PARI) is(n)=ispseudoprime(3^n+2^n+10) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Dec 01 2012
EXTENSIONS
a(16)-a(17) from Bruno Berselli, Dec 06 2012
a(18)-a(23) from Michael S. Branicky, Mar 21 2023
a(24)-a(25) from Michael S. Branicky, Sep 19 2024
STATUS
approved