A089919 Numbers k such that 3^prime(k) - 2 is prime.
1, 3, 12, 13, 66, 100, 369
Offset: 1
Programs
-
Mathematica
Select[Range[370],PrimeQ[3^Prime[#]-2]&] (* Harvey P. Dale, Oct 10 2016 *)
-
PARI
f(n) = for(x=1,n,if(ispseudoprime(3^prime(x)-2),print1(x,",")))
Formula
Extensions
Definition corrected by Jorge Coveiro, Jan 31 2006, Jul 25 2006
Comments