|
|
A050921
|
|
Smallest prime of form n*2^m+1, m >= 0, or 0 if no prime exists.
|
|
12
|
|
|
2, 3, 7, 5, 11, 7, 29, 17, 19, 11, 23, 13, 53, 29, 31, 17, 137, 19, 1217, 41, 43, 23, 47, 97, 101, 53, 109, 29, 59, 31, 7937, 257, 67, 137, 71, 37, 149, 1217, 79, 41, 83, 43, 173, 89, 181, 47
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Primes arising from A040076 (or 0 if no such prime exists).
|
|
LINKS
|
|
|
MAPLE
|
for m from 0 do
if isprime(n*2^m+1) then
return n*2^m+1 ;
end if;
end do;
|
|
MATHEMATICA
|
Do[m = 0; While[ !PrimeQ[n*2^m + 1], m++ ]; Print[n*2^m + 1], {n, 1, 47} ]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
The next term (47*2^583 + 1) is too large to show.
|
|
STATUS
|
approved
|
|
|
|