OFFSET
1,1
COMMENTS
a(5) has 4816 digits.
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[r=3^p - 2^p - 2], AppendTo[lst, r]], {n, 1000}]; lst (* Vincenzo Librandi, Sep 25 2015 *)
Select[3^#-2^#-2&/@Prime[Range[50]], PrimeQ] (* Harvey P. Dale, Dec 03 2024 *)
PROG
(Magma) [3^p-2^p-2: p in PrimesUpTo(4000) | IsPrime(3^p-2^p-2)]; // Vincenzo Librandi, Sep 25 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jul 11 2009
EXTENSIONS
Edited by R. J. Mathar, Jul 26 2009
STATUS
approved