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.

Showing 1-1 of 1 results.

A362209 Irregular triangle read by rows: T(n, k) is the number of k X k matrices using all the integers from 1 to k^2 and having trace equal to n, with 1 <= k <= A003056(n).

Original entry on oeis.org

1, 0, 0, 4, 0, 4, 0, 8, 0, 4, 4320, 0, 4, 4320, 0, 0, 8640, 0, 0, 12960, 0, 0, 17280, 11496038400, 0, 0, 21600, 11496038400, 0, 0, 30240, 22992076800, 0, 0, 30240, 34488115200, 0, 0, 34560, 57480192000, 0, 0, 34560, 68976230400, 291948240981196800000
Offset: 1

Views

Author

Stefano Spezia, Apr 11 2023

Keywords

Examples

			Irregular triangle begins:
    1;
    0;
    0, 4;
    0, 4;
    0, 8;
    0, 4,  4320;
    0, 4,  4320;
    0, 0,  8640;
    0, 0, 12960;
    0, 0, 17280, 11496038400;
    0, 0, 21600, 11496038400;
    0, 0, 30240, 22992076800;
    0, 0, 30240, 34488115200;
    0, 0, 34560, 57480192000;
    0, 0, 34560, 68976230400, 291948240981196800000;
    ...
T(5,2) = 8 since we have:
    [1, 2]  [1, 3]  [4, 2]  [4, 3]
    [3, 4], [2, 4], [3, 1], [2, 1],
.
    [2, 1]  [2, 4]  [3, 1]  [3, 4]
    [4, 3], [1, 3], [4, 2], [1, 2].
		

Crossrefs

Cf. A000290, A003056 (row lengths), A345132, A362187, A362208.

Programs

  • Mathematica
    A362208[n_,k_] := Length[Select[Join@@Permutations/@Select[IntegerPartitions[n, All, Range[k^2]], UnsameQ@@#&], Length[#]==k&]]; Table[(k^2-k)!A362208[n,k],{n,15},{k,Floor[(Sqrt[8n+1]-1)/2]}]//Flatten

Formula

T(n, k) = A362187(k)*A362208(n, k).
Showing 1-1 of 1 results.