OFFSET
1,1
COMMENTS
a(22) > 2*10^5. - Robert Price, Aug 31 2013
MATHEMATICA
Do[If[PrimeQ[3^n - 14], Print[n]], {n, 3, 3000}]
Select[Range[1000], PrimeQ[3^# - 14] &] (* Alonso del Arte, Nov 10 2012 *)
PROG
(PARI) is(n)=isprime(3^n-14) \\ Charles R Greathouse IV, Feb 17 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Nicolas M. Perrault, Nov 10 2012
EXTENSIONS
a(16)-a(21) from Robert Price, Aug 31 2013
STATUS
approved