OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..20
MATHEMATICA
Select[Table[2^n - n^2, {n, 500}], PrimeQ] (* Vincenzo Librandi, Dec 07 2011 *)
PROG
(PARI) for(n=2, 10^7, if(isprime(2^n-n^2), print1(2^n-n^2", ")))
(Magma) [a: n in [1..200] | IsPrime(a) where a is 2^n-n^2]; // Vincenzo Librandi, Dec 07 2011
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Zak Seidov, Oct 17 2002
EXTENSIONS
More terms from Ralf Stephan, Mar 30 2003
STATUS
approved