cp's OEIS Frontend

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.

A383727 Main diagonal of A383726.

This page as a plain text file.
%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