A242944 Primes prime(k) such that 2^k + prime(k) is also prime.
3, 5, 7, 11, 37, 41, 43, 83, 269, 577, 1429, 1433, 2063, 2549, 8353, 10639, 15299, 16927, 18637, 20201, 24007, 30097, 34039, 41777, 146609, 394249, 839203, 2955319
Offset: 1
Programs
-
Mathematica
p = 2; lst = {}; While[p < 760001, If[ PrimeQ[p + 2^PrimePi@ p], AppendTo[ lst, p]; Print@ p]; p = NextPrime@ p; c++]; lst Select[Table[{n,Prime[n]},{n,3000}],PrimeQ[#[[2]]+2^#[[1]]]&][[;;,2]] (* The program generates the first 21 terms of the sequence. *) (* Harvey P. Dale, Mar 04 2024 *)
Extensions
a(27) from Michael S. Branicky, May 29 2025 using A077375.
a(28) from Michael S. Branicky, Jun 01 2025
Comments