A383727 Main diagonal of A383726.

30, 6279, 8970, 2532915, 3327870

Offset: 3

Author

Paolo Xausa, May 08 2025

Keywords

• nonn
• hard
• more

Crossrefs

Cf. A383726.

Programs

Mathematica

A383726[n_] := Module[{m = Times @@ Prime[Range[n]] - 1}, Do[While[Length[#] != n || Total[Most[#]] != Last[#] & [FactorInteger[++m][[All, 1]]]], n-2]; m];
Array[A383726, 5, 3]

Formula

a(n) = A383726(n,n-2).