OFFSET
1,1
REFERENCES
Posting to NMBRTHRY(AT)LISTSERV.NODAK.EDU by Mike Oakes Dec 30 2000 entitled "Gaussian analogues of the Cullen and Woodall primes."
MATHEMATICA
Do[ If[ PrimeQ[n*2^(n/2) - 1], Print[n] ], {n, 1, 100000} ]
Select[Range[2, 43000, 2], PrimeQ[#*2^(#/2)-1]&] (* Harvey P. Dale, Dec 13 2018 *)
PROG
(PARI) is(n)=isprime(n*2^(n/2)-1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Jan 02 2001
STATUS
approved