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 A383727 #5 May 11 2025 11:56:41 %S A383727 30,6279,8970,2532915,3327870 %N A383727 Main diagonal of A383726. %F A383727 a(n) = A383726(n,n-2). %t A383727 A383726[n_] := Module[{m = Times @@ Prime[Range[n]] - 1}, Do[While[Length[#] != n || Total[Most[#]] != Last[#] & [FactorInteger[++m][[All, 1]]]], n-2]; m]; %t A383727 Array[A383726, 5, 3] %Y A383727 Cf. A383726. %K A383727 nonn,hard,more %O A383727 3,1 %A A383727 _Paolo Xausa_, May 08 2025