OFFSET
1,1
COMMENTS
a(15) > 200000. - Giovanni Resta, May 13 2018
EXAMPLE
5 is in the sequence, because 2^4 - 5 = 11 is prime.
MATHEMATICA
Select[Range[6500], PrimeQ[2^(# - 1) - #] &] (* Michael De Vlieger, Apr 21 2018 *)
PROG
(PARI) forstep(n=1, 10^6, 2, if(ispseudoprime(2^(n-1)-n), print1(n, ", "))); \\ Joerg Arndt, Apr 15 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Thomas Gajdek, Dec 03 2017
EXTENSIONS
Edited by Joerg Arndt, Apr 15 2018
a(15) from Michael S. Branicky, Apr 20 2025 using A099439
STATUS
approved
