|
|
A335233
|
|
Numbers m such that m!*i + 1 is composite for i = 1..m.
|
|
2
|
|
|
50, 66, 67, 76, 81, 110, 117, 120, 122, 157, 178, 183, 217, 219, 226, 235, 240, 242, 244, 250, 254, 260, 266, 269, 274, 275, 287, 289, 309, 326, 346, 354, 363, 379, 380, 386, 400, 407, 410, 417, 419, 443, 449, 451, 470, 474, 489, 493, 509, 513, 518, 541, 543
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
If m is a term, then A321805(m) = 0.
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[Range@ 200, (f = #!; NoneTrue[f*Range[#] + 1, PrimeQ]) &] (* Robert Price, Sep 14 2020 *)
|
|
PROG
|
(Python)
from sympy import isprime
for k in range(1, 100):
f *= k
g = 1
for i in range(1, k+1):
g += f
if isprime(g):
break
else:
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|