|
|
A061410
|
|
Numbers k such that m*2^k+1 is not prime for all coefficients m in the range 0<=m<=k.
|
|
6
|
|
|
9, 10, 22, 31, 86, 99, 100, 101, 113, 114, 115, 130, 135, 136, 149, 154, 169, 217, 218, 223, 224, 283, 301, 309, 358, 383, 384, 422, 423, 424, 425, 426, 449, 457, 473, 495, 505, 506, 541, 542, 548, 549, 564, 571, 572, 573, 628, 668, 670, 681, 682, 683, 713
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MAPLE
|
filter:= n -> andmap(not isprime, [seq(m*2^n+1, m=1..n)]):
|
|
MATHEMATICA
|
okQ[n_] := AllTrue[2^n Range[n] + 1, CompositeQ];
|
|
PROG
|
(PARI) isok(n) = {for (m=0, n, if (isprime(m*2^n+1), return (0)); ); return (1); } \\ Michel Marcus, Dec 11 2017
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|