OFFSET
1,1
COMMENTS
Generated by k = 3, 5, 7, 23, 25, 37, 49, 103, 149, 211,....
MATHEMATICA
lst={}; Do[If[PrimeQ[p=2^n+3^n-4], AppendTo[lst, p]], {n, 6!}]; lst
Select[Table[2^k+3^k-4, {k, 200}], PrimeQ] (* Harvey P. Dale, Apr 05 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 13 2009
EXTENSIONS
Comment added by R. J. Mathar, Oct 04 2009
One more term (a(9)) from Harvey P. Dale, Apr 05 2019
STATUS
approved