login
A032416
Numbers k such that 133*2^k+1 is prime.
1
4, 6, 10, 16, 30, 124, 174, 192, 336, 600, 720, 1092, 1138, 1588, 1652, 1812, 3012, 3308, 7266, 7446, 10136, 10656, 12140, 21756, 63870, 66020, 81156, 90346, 109600, 127600, 193148, 193674, 200878, 278806, 894310, 1027150, 1471408, 1684616, 2455666, 2701452
OFFSET
1,1
MATHEMATICA
Select[Range[1000], PrimeQ[133*2^# + 1] & ] (* Robert Price, Dec 17 2018 *)
PROG
(PARI) is(n)=ispseudoprime(133*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
(Magma) [n: n in [1..6000] |IsPrime(133*2^n+1)]; // Vincenzo Librandi, Dec 18 2018
CROSSREFS
Sequence in context: A023501 A050887 A078642 * A283496 A117149 A344146
KEYWORD
nonn,more
EXTENSIONS
Extended by Hugo Pfoertner, Jul 02 2003
a(31)-a(38) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 17 2018
a(39)-a(40) from Jeppe Stig Nielsen, Mar 12 2020
STATUS
approved