OFFSET
1,1
COMMENTS
a(33) > 2*10^5. - Robert Price, Sep 07 2013
a(34) > 3*10^5. - Tyler NeSmith, Oct 03 2022
MATHEMATICA
Select[Range[2, 5000], PrimeQ[3^# - 10] &]
PROG
(PARI) for(n=2, 5*10^3, if(isprime(3^n-10), print1(n", ")))
(Magma) /* The code produces the sequence up to 560: */ [n: n in [2..800] | IsPrime(3^n - 10)];
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Vincenzo Librandi, Oct 01 2012
EXTENSIONS
a(24)-a(32) from Robert Price, Sep 07 2013
a(33) from Tyler NeSmith, Oct 03 2022
STATUS
approved