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 A118913 #22 Dec 11 2024 21:14:15
%S A118913 3,31,45361,3991681,
%T A118913 2516506653355019284889240277665777045474566836669417196965412366518489408149127168000000000000001
%N A118913 Primes of the form k! + (k+1)! + 1.
%C A118913 The next term has 595 digits. - _Harvey P. Dale_, May 30 2016
%e A118913 a(2) = 3! + 4! + 1 = 6 + 24 + 1 = 31.
%e A118913 a(3) = 7! + 8! + 1 = 5040 + 40320 + 1 = 45361.
%p A118913 P:=proc(n) local i, j; for i from 1 by 1 to n do j:=i!+(i+1)!+1; if isprime(j) then print(j); fi; od; end: P(200);
%t A118913 lst={};Do[p=n!+(n+1)!+1;If[PrimeQ[p],AppendTo[lst,p]],{n,0,5!}];lst (* _Vladimir Joseph Stephan Orlovsky_, Jan 27 2009 *)
%t A118913 Select[Total[#]+1&/@Partition[Range[0,300]!,2,1],PrimeQ] (* _Harvey P. Dale_, May 30 2016 *)
%o A118913 (PARI) for(n=0, 1e3, if(isprime(k=n!+(n+1)!+1), print1(k", "))) \\ _Charles R Greathouse IV_, Feb 14 2011
%Y A118913 Indices in A087147. - _Dmitry Kamenetsky_, Oct 21 2008
%K A118913 nonn
%O A118913 1,1
%A A118913 _Paolo P. Lava_ and _Giorgio Balzarotti_, May 25 2006
%E A118913 First term inserted (because 0! + 1! + 1 = 3 is prime) by _Dmitry Kamenetsky_, Oct 21 2008