|
| |
|
|
A075896
|
|
Primes of the form 2^n-n^2.
|
|
5
| |
|
|
7, 79, 431, 130783, 523927, 2251799813682647, 9007199254738183, 2417851639229258349405791, 9671406556917033397642519, 664613997892457936451903530140158127
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Vincenzo Librandi, Table of n, a(n) for n = 1..20
|
|
|
MATHEMATICA
| lst={}; Do[p=2^n-n^2; If[PrimeQ[p], AppendTo[lst, p]], {n, 0, 2*5!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 27 2009]
Select[Table[2^n-n^2, {n, 1, 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
| Sequence in context: A176130 A014232 A154592 * A201475 A079911 A003545
Adjacent sequences: A075893 A075894 A075895 * A075897 A075898 A075899
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Zak Seidov (zakseidov(AT)yahoo.com), Oct 17 2002
|
|
|
EXTENSIONS
| More terms from Ralf Stephan (ralf(AT)ark.in-berlin.de), Mar 30 2003
|
| |
|
|
