A086218 Primes p such that 3^p - 2 is prime.
2, 5, 37, 41, 317, 541, 2521
Offset: 1
Programs
-
Mathematica
f[n_]:=3^n-2; lst={};Do[p=Prime[n];If[PrimeQ[f[p]],Print[p];AppendTo[lst,p]],{n,7!}];lst (* Vladimir Joseph Stephan Orlovsky, Jul 17 2009 *)
Formula
a(n) = prime(A089919(n)). - Amiram Eldar, Jul 07 2024
Extensions
a(7) from Jorge Coveiro, Apr 10 2004
Comments