login
A345982
Numbers k such that prime(2^k) - prime(2^(k-1)) + 1 is prime.
1
1, 2, 3, 5, 6, 7, 9, 12, 14, 46, 53, 55
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
Sequence in context: A108130 A195060 A153763 * A050747 A261514 A215798
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