[go: up one dir, main page]

login
A059747
Numbers k such that 3*2^k - 7 is prime.
1
2, 3, 4, 5, 8, 12, 15, 17, 20, 21, 45, 48, 87, 97, 113, 120, 172, 217, 228, 276, 312, 580, 692, 1132, 1588, 1668, 2576, 2591, 3780, 4311, 4412, 6205, 11952, 19897, 19941, 20525, 22821, 44757, 62833, 110437, 124113
OFFSET
1,1
COMMENTS
Next term > 12000. - Vincenzo Librandi, Sep 29 2012
MATHEMATICA
Do[ If[ PrimeQ[ 3*2^n - 7 ], Print[n] ], {n, 3000} ]
Select[Range[6500], PrimeQ[(3*2^# - 7)] &] (* Vincenzo Librandi, Sep 29 2012 *)
PROG
(PARI) is(n)=ispseudoprime(3*2^n-7) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Cf. A059746.
Sequence in context: A048486 A179402 A065428 * A254328 A094087 A225132
KEYWORD
nonn,more
AUTHOR
Robert G. Wilson v, Feb 10 2001
EXTENSIONS
a(29)-a(32) from Vincenzo Librandi, Sep 29 2012
a(33) from Bruno Berselli, Sep 30 2012
a(34)-a(39) from Michael S. Branicky, May 01 2023
a(40)-a(41) from Michael S. Branicky, Sep 27 2024
STATUS
approved