A093520 Numbers n such that there exists no k with 0 < k < n for which n!/k + 1 is a prime.

1, 18, 51, 53, 84, 95, 100, 104, 106, 143, 178, 180, 181, 188, 202, 203, 211, 214, 217, 222, 227, 232, 237, 239, 244, 250, 258, 272, 281, 284, 300, 303, 313, 315, 317, 323, 326, 342, 358, 364, 370, 374, 386, 387, 396, 401, 409, 413, 422, 423, 429, 438, 440

Offset

1,2

Comments

Essentially the same as A092068. - R. J. Mathar, Sep 05 2008

Links

Table of n, a(n) for n=1..53.

Mathematica

f[n_] := Block[{k = 1}, While[ !PrimeQ[n!/k + 1], k++ ]; If[k < n, n!/k + 1, 0]]; Do[ If[ f[n] == 0, Print[n]], {n, 440}]
Join[{1}, Select[Range[500], NoneTrue[#!/Range[#]+1, PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 14 2018 *)

Crossrefs

Cf. A092969.

Sequence in context: A074173 A273459 A092068 * A051870 A262454 A175815

Adjacent sequences: A093517 A093518 A093519 * A093521 A093522 A093523

Keyword

nonn

Author

Robert G. Wilson v, Mar 29 2004

Status

approved