OFFSET
1,1
COMMENTS
Next term > 12000. - Vincenzo Librandi, Sep 29 2012
MATHEMATICA
Do[ If[ PrimeQ[ 3*2^n - 7 ], Print[n] ], {n, 3000} ]
Select[Range[6500], PrimeQ[(3*2^# - 7)] &] (* Vincenzo Librandi, Sep 29 2012 *)
PROG
(PARI) is(n)=ispseudoprime(3*2^n-7) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 10 2001
EXTENSIONS
a(29)-a(32) from Vincenzo Librandi, Sep 29 2012
a(33) from Bruno Berselli, Sep 30 2012
a(34)-a(39) from Michael S. Branicky, May 01 2023
a(40)-a(41) from Michael S. Branicky, Sep 27 2024
STATUS
approved