OFFSET
0,3
LINKS
Paolo Xausa, Table of n, a(n) for n = 0..10000
Index entries for linear recurrences with constant coefficients, signature (5,-10,10,-5,1).
FORMULA
a(n) = n*(n - 1)*(3*n^2 - 2*n - 2)/6.
G.f.: x^2*(2 + 9*x + x^2)/(1 - x)^5.
MATHEMATICA
a[n_, d_] := a[n, d] = (AnyTrue[#, OrderedQ[#, Less] &] && AnyTrue[Transpose[#], OrderedQ[#, Less] &] && (OrderedQ[Diagonal[#], Less] || OrderedQ[Diagonal[Reverse[#, 2]], Less]) & /@ Tuples[Range[1, n], {d, d}]) // Boole // Total;
Table[a[n, 2], {n, 0, 42}]
A391092[n_] := n*(n^2*(3*n - 5) + 2)/6;
Array[A391092, 50, 0] (* Paolo Xausa, Dec 09 2025 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert P. P. McKone, Nov 28 2025
STATUS
approved
