OFFSET
1,1
COMMENTS
If instead we ask for odd primes, and therefore the index is one less than that for all primes, the sequence would begin: 3, 29, 89, 251, 659, 937, 1307, 1453, 8179, 9391, 12097, 28499, 83969, 101209, 120739, ..., .
If we count 1 amongst the primes (A008578), then the sequence would begin: 1, 3, 31, 71, 97, 107, 277, 307, 641, 907, 967, 1009, 1447, 3463, 3527, 7757, 8167, ..., .
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 1..26
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 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Jun 20 2014
STATUS
approved