login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A093520 Numbers n such that there exists no k with 0 < k < n for which n!/k + 1 is a prime. 0
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 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Essentially the same as A092068. [From 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 16 15:17 EST 2020. Contains 331961 sequences. (Running on oeis4.)