This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A093520 #9 Aug 21 2021 21:59:55
%S A093520 1,18,51,53,84,95,100,104,106,143,178,180,181,188,202,203,211,214,217,
%T A093520 222,227,232,237,239,244,250,258,272,281,284,300,303,313,315,317,323,
%U A093520 326,342,358,364,370,374,386,387,396,401,409,413,422,423,429,438,440
%N A093520 Numbers n such that there exists no k with 0 < k < n for which n!/k + 1 is a prime.
%C A093520 Essentially the same as A092068. - _R. J. Mathar_, Sep 05 2008
%t A093520 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}]
%t A093520 Join[{1},Select[Range[500],NoneTrue[#!/Range[#]+1,PrimeQ]&]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 14 2018 *)
%Y A093520 Cf. A092969.
%K A093520 nonn
%O A093520 1,2
%A A093520 _Robert G. Wilson v_, Mar 29 2004