|
|
A089919
|
|
Numbers n such that 3^prime(n) - 2 is prime.
|
|
0
|
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range[370], PrimeQ[3^Prime[#]-2]&] (* Harvey P. Dale, Oct 10 2016 *)
|
|
PROG
|
(PARI) f(n) = for(x=1, n, if(ispseudoprime(3^prime(x)-2), print1(x, ", ")))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|