OFFSET
1,1
COMMENTS
The next term has 151 digits. - Stefan Steinerberger, Feb 11 2006
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..14
MATHEMATICA
Select[Table[2^n-n+1, {n, 0, 500}], PrimeQ] (* Vincenzo Librandi, Jul 18 2012 *)
PROG
(Magma) [ a: n in [0..200] | IsPrime(a) where a is 2^n-n+1 ]; // Vincenzo Librandi, Jul 18 2012
(Sage)
def list_a(k):
return [(2**i) - i + 1 for i in range(k) if (2**i) - i + 1 in Primes()] # Giuseppe Bonaccorso, Aug 15 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Labos Elemer, Nov 19 2004
STATUS
approved