OFFSET
1,2
COMMENTS
a(24) > 30000. - Jinyuan Wang, Feb 01 2020
MATHEMATICA
Do[ If[ PrimeQ[ 7*2^n + 5 ], Print[ n ] ], {n, 1, 6800} ]
Select[Range[0, 10000], PrimeQ[(7*2^# + 5)] &] (* Vincenzo Librandi, Sep 29 2012 *)
PROG
(PARI) is(n)=ispseudoprime(7*2^n+5) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Dec 26 2000
EXTENSIONS
a(18)-a(22) from Vincenzo Librandi, Sep 29 2012
a(23) from Jinyuan Wang, Feb 01 2020
a(24)-a(25) from Michael S. Branicky, May 19 2023
a(26)-a(28) from Michael S. Branicky, Jul 27 2024
STATUS
approved