|
%I #20 Sep 08 2022 08:45:46
%S 3,17,328256958598444055417,127173474823342767533669605649
%N Primes of the form 3^p-2^p-2 generated from primes p.
%C a(5) has 4816 digits.
%t lst={}; Do[p=Prime[n]; If[PrimeQ[r=3^p - 2^p - 2], AppendTo[lst, r]], {n, 1000}]; lst (* _Vincenzo Librandi_, Sep 25 2015 *)
%o (Magma) [3^p-2^p-2: p in PrimesUpTo(4000) | IsPrime(3^p-2^p-2)]; // _Vincenzo Librandi_, Sep 25 2015
%Y Cf. A162712 (associated p).
%K nonn
%O 1,1
%A _Vincenzo Librandi_, Jul 11 2009
%E Edited by _R. J. Mathar_, Jul 26 2009
| 