OFFSET
1,2
MATHEMATICA
Do[ If[ PrimeQ[ 7*2^n + 3 ], Print[ n ] ], {n, 5000} ]
Select[Range[10000], PrimeQ[7*2^# + 3] &] (* Vincenzo Librandi, Oct 03 2012 *)
PROG
(PARI) is(n)=ispseudoprime(7*2^n+3) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Dec 26 2000
EXTENSIONS
a(15) from Vincenzo Librandi, Oct 03 2012
a(16)-a(23) from Jinyuan Wang, Jan 20 2020
a(24) from Michael S. Branicky, Mar 18 2024
a(25)-a(29) from Michael S. Branicky, Oct 23 2024
STATUS
approved