|
|
A162713
|
|
Primes of the form 3^p-2^p-2 generated from primes p.
|
|
1
|
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
a(5) has 4816 digits.
|
|
LINKS
|
|
|
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 *)
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|