A059612 Numbers k such that 2^k - 15 is prime.
5, 7, 8, 10, 14, 16, 23, 76, 95, 100, 158, 196, 235, 338, 620, 1646, 1850, 1891, 3833, 4394, 5194, 6017, 6070, 8824, 9955, 11399, 12250, 28723, 32057, 45494, 137359, 139627, 160654, 178819, 183284, 276391, 283466, 400571, 449030, 632815, 875518, 981016, 3511529
Offset: 1
Keywords
Examples
100 is present because 2^100 - 15 is prime.
Links
- Henri Lifchitz and Renaud Lifchitz, Search for 2^n-15, PRP Top Records.
Crossrefs
Programs
-
Maple
A059612:=n->if isprime(2^n-15) then n; fi; seq(A059612(n), n=1..20000); # Wesley Ivan Hurt, Dec 06 2013
-
Mathematica
Select[Range[4,20000],PrimeQ[2^#-15]&] (* Vladimir Joseph Stephan Orlovsky, Feb 27 2011 *)
-
PARI
is(n)=isprime(2^n-15) \\ Charles R Greathouse IV, Feb 17 2017
Extensions
a(26) from Labos Elemer, Jul 09 2004
a(27)-a(29) from Max Alekseyev, a(30) from Henri Lifchitz, a(31)-a(32) from Gary Barnes, a(33)-a(35) from Lelio R Paula, added by Max Alekseyev, Feb 09 2012
a(36)-a(37) from Lelio R Paula, added by Max Alekseyev, Oct 24 2013
a(38) from Lelio R Paula, added by Robert Price, Dec 06 2013
a(39) from Lelio R Paula, added by Robert Price, Mar 16 2019
a(40)-a(43) from Stefano Morozzi, added by Elmo R. Oliveira, Nov 16 2023