%I #13 Jan 23 2022 17:09:07
%S 1,2,3,5,6,7,9,12,14,46,53,55
%N Numbers k such that prime(2^k) - prime(2^(k-1)) + 1 is prime.
%t 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 *)
%Y Cf. A033844, A092262.
%K nonn,more,hard
%O 1,2
%A _N. J. A. Sloane_, Jul 07 2021
%E a(10)-a(12) from _Chai Wah Wu_, Jul 07 2021 using A033844
|