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 A108097 #7 Jul 10 2021 16:15:52 %S A108097 1,13,19,30,32,48,54,62,63,64,68,74,75,78,90,92,93,106,109,111,112, %T A108097 115,117,123,128,129,131,133,135,138,144,146,156,158,159,161,162,168, %U A108097 170,174,175,196,197,205,211,213,217,218,219,220,230,234 %N A108097 Numbers k such that there is no j <= k with k!+j!-1 prime. %t A108097 Select[Range[250],NoneTrue[(#!-1)+Range[#]!,PrimeQ]&] (* The program uses the NoneTrue function from Mathematica version 10 *) (* _Harvey P. Dale_, Mar 28 2015 *) %Y A108097 Cf. A075758. %K A108097 nonn %O A108097 1,2 %A A108097 _Ralf Stephan_, Jun 01 2005