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 - 1)*(7*n^3 - n^2 - 2*n)/12. - Jason Yuen, Dec 01 2025
MATHEMATICA
a[n_, d_] := a[n, d] = (AnyTrue[#, OrderedQ[#, Less] &] && AnyTrue[Transpose[#], OrderedQ[#, Less] &] &) /@ Tuples[Range[1, n], {d, d}] // Boole // Total;
Table[a[n, 2], {n, 0, 42}]
A390922[n_] := n*(n - 1)*(n*(7*n - 1) - 2)/12;
Array[A390922, 50, 0] (* Paolo Xausa, Dec 09 2025 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert P. P. McKone, Nov 24 2025
STATUS
approved
