OFFSET
1,2
COMMENTS
Next term > 29815. - Jinyuan Wang, Feb 02 2020
MATHEMATICA
Do[ If[ PrimeQ[ 5*2^n + 7 ], Print[n] ], {n, 1, 3000} ]
Select[Range[0, 8000], PrimeQ[(5*2^# + 7)] &] (* Vincenzo Librandi, Sep 29 2012 *)
PROG
(PARI) is(n)=ispseudoprime(5*2^n+7) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 10 2001
EXTENSIONS
a(22)-a(24) from Vincenzo Librandi, Sep 29 2012
a(25)-a(29) from Jinyuan Wang, Feb 02 2020
a(30) from Michael S. Branicky, May 19 2023
a(31)-a(32) from Michael S. Branicky, Jul 27 2024
STATUS
approved