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 A053711 #23 Jan 18 2022 10:14:42 %S A053711 1,7,11,31,397,409,1657,2131,7607 %N A053711 Numbers d such that, for some k, the upper and lower primes closest to k! are k! + d and k! - d. %C A053711 This sequence lists d = nextprime(k!) - k! = prevprime(k!) - k! for k in A053709. %e A053711 For k = 10, k! = 3628800, d = 11, and the closest primes to 10! are q = 10! - 11 = 3628789 and p = 10! + 11 = 3628811. The differences d are listed here. %t A053711 Reap[Do[If[SameQ @@ #, Sow@ First[#]] &@ Abs[# - NextPrime[#, {-1, 1}]] &[i!], {i, 200}]][[-1, -1]] (* _Michael De Vlieger_, Jan 14 2022 *) %Y A053711 Cf. A033932, A033933, A006990, A037151, A006562, A053709, A053710. %K A053711 nonn,hard,more %O A053711 1,2 %A A053711 _Labos Elemer_, Feb 10 2000 %E A053711 a(5)-a(8) from _Donovan Johnson_, Oct 12 2008 %E A053711 a(9) from _Hans Havermann_, Aug 15 2014