OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..37
MATHEMATICA
lst={}; Do[p=2^n+3^(n-1); If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 5!}]; lst (* Vladimir Joseph Stephan Orlovsky, Jun 15 2009 *)
Select[3^#[[1]]+2^#[[2]]&/@Partition[Range[0, 50], 2, 1], PrimeQ] (* Harvey P. Dale, Feb 19 2015 *)
PROG
(Magma) [a: n in [0..100] | IsPrime(a) where a is 2^n+3^(n-1)];
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Mar 11 2009
EXTENSIONS
More terms from Vladimir Joseph Stephan Orlovsky, Jun 15 2009
STATUS
approved