OFFSET
1,3
COMMENTS
MATHEMATICA
Do[f=2^(n+1)+3^n; If[PrimeQ[f], Print[{n, f}]], {n, 0, 347}]
Select[Range[0, 6400], PrimeQ[2^(#+1)+3^#]&] (* Harvey P. Dale, Mar 04 2019 *)
PROG
(PARI) is(n)=ispseudoprime(2^(n+1)+3^n) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, Nov 20 2006
EXTENSIONS
More terms from Stefan Steinerberger, May 12 2007
a(44) from Jinyuan Wang, Aug 02 2021
a(45)-a(50) from Michael S. Branicky, Aug 05 2021
STATUS
approved