[go: up one dir, main page]

login
A032423
Numbers k such that 147*2^k+1 is prime.
1
8, 11, 15, 18, 19, 26, 44, 60, 84, 90, 91, 134, 155, 179, 258, 275, 475, 620, 824, 888, 1731, 2194, 2328, 2568, 2915, 3554, 4319, 5340, 8054, 10088, 21660, 41851, 50535, 77719, 81660, 169658, 179034, 190911, 208731, 218300, 359710, 394394, 509831, 534558
OFFSET
1,1
MAPLE
select(k->isprime(147*2^k+1), [$0..1000])[]; # Muniru A Asiru, Dec 18 2018
MATHEMATICA
Select[Range[1000], PrimeQ[147*2^# + 1] & ] (* Robert Price, Dec 18 2018 *)
PROG
(PARI) is(n)=ispseudoprime(147*2^n+1) \\ Charles R Greathouse IV, Jun 13 2017
CROSSREFS
Sequence in context: A188199 A078117 A256073 * A063724 A317770 A154685
KEYWORD
nonn
EXTENSIONS
a(36)-a(49) from the Ray Ballinger and Wilfrid Keller link by Robert Price, Dec 18 2018
Terms moved from Data section to b-file, and more terms appended to b-file, by Jeppe Stig Nielsen, Jan 19 2020
STATUS
approved