OFFSET
1,1
COMMENTS
Primes in A013597. - Bill McEachen, Oct 27 2021
MATHEMATICA
Select[Table[NextPrime[2^n]-2^n, {n, 200}], PrimeQ] (* Harvey P. Dale, Dec 13 2011 *)
Select[NextPrime[#]-#&/@(2^Range[200]), PrimeQ] (* Harvey P. Dale, Jan 05 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Cino Hilliard, Aug 27 2004
EXTENSIONS
Definition corrected by Harvey P. Dale, Dec 13 2011
STATUS
approved