OFFSET
1,2
COMMENTS
The next terms are > 50000. - Jinyuan Wang, Feb 03 2020
MATHEMATICA
Do[ If[ PrimeQ[ 5*2^n - 7 ], Print[n] ], {n, 3000} ]
Select[Range[6000], PrimeQ[(5*2^# - 7)] &] (* Vincenzo Librandi, Sep 30 2012 *)
PROG
(PARI) is(n)=ispseudoprime(5*2^n-7) \\ Charles R Greathouse IV, Jun 13 2017
(PFGW) ABC2 5*2^$a-7
a: from 1 to 10000 // Jinyuan Wang, Feb 03 2020
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 10 2001
EXTENSIONS
a(22)-a(25) from Vincenzo Librandi, Sep 30 2012
a(26)-a(28) from Michael S. Branicky, May 20 2023
a(29)-a(30) from Michael S. Branicky, Jul 27 2024
STATUS
approved