OFFSET
1,2
MATHEMATICA
Select[Range[20], PrimeQ[Prime[2^#] - Prime[2^(# - 1)] + 1] &] (* The program generates the first 9 terms of the sequence. To generate more, increase the Range constant but the program may take a long time to run. *) (* Harvey P. Dale, Jul 08 2021 *)
CROSSREFS
KEYWORD
nonn,more,hard
AUTHOR
N. J. A. Sloane, Jul 07 2021
EXTENSIONS
a(10)-a(12) from Chai Wah Wu, Jul 07 2021 using A033844
STATUS
approved