OFFSET
1,1
COMMENTS
a(51) > 2*10^5. - Robert Price, May 06 2016
EXAMPLE
n=4: 89 = 2*2*2 + 3*3*3*3 is prime.
n=15: 3^15 + 2^14 = 14365291 is prime.
MATHEMATICA
Do[ If[ PrimeQ[3^n + 2^(n - 1)], Print[n]], {n, 7650}] (* Robert G. Wilson v, May 24 2004 *)
Select[Range[6000], PrimeQ[3^# + 2^(#-1)] &] (* Vincenzo Librandi, Mar 20 2015 *)
PROG
(Magma) [n: n in [0..1000] | IsPrime(3^n + 2^(n-1))]; // Vincenzo Librandi, Mar 20 2015
(PARI) is(n)=isprime(3^n+2^(n-1)) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Apr 14 2003
EXTENSIONS
Edited and extended by Robert G. Wilson v, May 25 2004
Edited by N. J. A. Sloane, Sep 15 2008 at the suggestion of R. J. Mathar
a(37)-a(50) from Robert Price, May 06 2016
STATUS
approved