OFFSET
1,1
COMMENTS
The next term has 1117 digits and is not included explicitly for that reason.
MATHEMATICA
Select[Table[3^p - 2^(p + 1), {p, Prime[Range[70]]}], PrimeQ] (* Vincenzo Librandi, Sep 11 2013 *)
PROG
(Magma) [a: p in PrimesInInterval(3, 1200) | IsPrime(a) where a is 3^p - 2^(p + 1)]; // Vincenzo Librandi, Sep 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Jul 11 2009
EXTENSIONS
Clarified status of p in the definition - R. J. Mathar, Oct 16 2009
STATUS
approved