login
A050549
Numbers k such that 47*2^k-1 is prime.
0
4, 14, 70, 78, 1374, 1824, 2158, 2654, 4494, 9598, 10068, 11524, 15128, 55408, 87324, 450470, 540494, 695384, 695724
OFFSET
1,1
MATHEMATICA
Select[Range[1000], PrimeQ[47*2^# - 1] & ] (* Robert Price, Dec 22 2018 *)
PROG
(PARI) is(n)=ispseudoprime(47*2^n-1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Sequence in context: A005501 A065606 A049372 * A222980 A321273 A322700
KEYWORD
hard,nonn,more
AUTHOR
N. J. A. Sloane, Dec 29 1999
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Jan 02 2008
a(17)-a (19) from the Wilfrid Keller link by Robert Price, Dec 22 2018
STATUS
approved