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 A096985 #24 Aug 23 2023 08:37:14 %S A096985 3,5,8,10,12,13,23,26,30,33,38,114,162,219,265,268,277,344,463,651, %T A096985 877,1128,2466,2594,4828,6512 %N A096985 Numbers k such that k*k! - NextPrime(k) is prime. %C A096985 For a(23), the corresponding value of k*k! - NextPrime(k) has more than 6239 digits. %e A096985 3 is in the sequence because 3*3! - 5 = 13 is prime. %e A096985 8 is in the sequence because 8*8! - 11 = 322549 is prime. %t A096985 << NumberTheory`NumberTheoryFunctions`;v={};Do[If[PrimeQ [n*n!-NextPrime[n]], v=Append[v, n];Print[v]], {n, 2150}] %t A096985 Select[Range[900],PrimeQ[# #!-NextPrime[#]]&] (* The program generates the first 21 terms of the sequence. To select more, increase the Range constant but the program may take a long time to run. *) (* _Harvey P. Dale_, Aug 16 2023 *) %Y A096985 Cf. A096986, A090704, A049433. %K A096985 nonn,hard,more %O A096985 1,1 %A A096985 _Farideh Firoozbakht_, Jul 31 2004 %E A096985 a(23)-a(24) from _Ryan Propper_, Jan 01 2008 %E A096985 a(25)-a(26) from _Michael S. Branicky_, Aug 21 2023