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 A108098 #12 Aug 24 2019 09:10:55
%S A108098 48,63,68,74,111,129,135,161,168,174,197,236,240,243,273,279,282,285,
%T A108098 309,322,335,347,360,393,407,419,431,437,439,440,455,460,461,483,491,
%U A108098 494,497,512,517,522,526,532,544,567,591,614,625,650,662,663,681,687
%N A108098 Numbers m such that there is no k <= 2*m for which m! + k! - 1 is prime.
%C A108098 For numbers m <= 320 that are not in the sequence, there exists an integer k <= 2*m such that m! + k! - 1 is a certified prime. For m > 320 the values of m! + k! - 1 are only probable primes. - _Ryan Propper_, Sep 02 2005
%t A108098 Do[l = Range[1, 2*n]; If[Length[Select[l, PrimeQ[n! + #! - 1]&]] == 0, Print[n]], {n, 1, 729}] (* _Ryan Propper_, Sep 02 2005 *)
%t A108098 Select[Range[700],NoneTrue[Table[#!+k!-1,{k,2#}],PrimeQ]&] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 24 2019 *)
%Y A108098 Cf. A075758.
%K A108098 nonn
%O A108098 1,1
%A A108098 _Ralf Stephan_, Jun 01 2005
%E A108098 a(13)-a(52) from _Ryan Propper_, Sep 02 2005
%E A108098 Name edited by _Jon E. Schoenfield_, Nov 18 2018