|
|
A208091
|
|
Smallest number m such that exactly n primes of the form 2^m - 2^k - 1 exist, 1 <= k < m.
|
|
2
|
|
|
1, 11, 3, 4, 6, 8, 38, 24, 32, 18, 48, 138, 20, 588, 144, 252, 5520, 168, 7200, 2400, 2850
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
a(3) = 4 because for m = 4 there are exactly three primes of the given form: 13 = 2^4 - 2^1 - 1, 11 = 2^4 - 2^2 - 1, 7 = 2^4 - 2^3 - 1 and no smaller m satisfies this requirement.
|
|
MAPLE
|
f:= n -> nops(select(k -> isprime(2^n-2^k-1), [$1..n-1])):
for n from 1 to 300 do
v:= f(n);
if not assigned(A[v]) then A[v]:= n fi;
od:
|
|
MATHEMATICA
|
A = <||>; Do[c = Length@Select[Range[n-1], PrimeQ[2^n - 2^# - 1] &]; If[! KeyExistsQ[A, c], A[c]=n], {n, 140}]; Array[A, 13, 0] (* Giovanni Resta, Jun 13 2018 *)
|
|
PROG
|
(Haskell)
import Data.List (elemIndices, elemIndex)
import Data.Maybe (fromJust)
a208091 = (+ 1) . fromJust . (`elemIndex` a208083_list)
(PARI) a(n) = {my(m=1); while(sum(k=1, m, isprime(2^m-2^k-1)) != n, m++); m; } \\ Michel Marcus, Jun 13 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,more
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|