A094053 Triangle read by rows: T(n,k) = k*(n-k), 1 <= k <= n.
0, 1, 0, 2, 2, 0, 3, 4, 3, 0, 4, 6, 6, 4, 0, 5, 8, 9, 8, 5, 0, 6, 10, 12, 12, 10, 6, 0, 7, 12, 15, 16, 15, 12, 7, 0, 8, 14, 18, 20, 20, 18, 14, 8, 0, 9, 16, 21, 24, 25, 24, 21, 16, 9, 0, 10, 18, 24, 28, 30, 30, 28, 24, 18, 10, 0, 11, 20, 27, 32, 35, 36, 35, 32, 27, 20, 11, 0, 12
Offset: 1
Examples
From _M. F. Hasler_, Feb 02 2013: (Start) Triangle begins: 0; 1, 0; 2, 2, 0; 3, 4, 3, 0; 4, 6, 6, 4, 0; 5, 8, 9, 8, 5, 0; (...) If an additional 0 was added at the beginning, this would become: 0; 0, 1; 0, 2, 2; 0, 3, 4; 3; 0, 4, 6, 6, 4; 0, 5, 8, 9, 8, 5; ... (End)
Links
- W. Harter, Principles of Symmetry, Dynamics, Spectroscopy, Wiley, 1993, Ch. 5, page 345-346.
- B. Klee, Quantum Angular Momentum Matrices, Wolfram Demonstrations Project, 2016.
- J. Schwinger, On Angular Momentum , Cambridge: Harvard University, Nuclear Development Associates, Inc., 1952.
Crossrefs
T(n,k) for values of k:
Programs
-
Magma
/* As triangle */ [[k*(n-k): k in [1..n]]: n in [1.. 15]]; // Vincenzo Librandi, Jan 30 2016
-
Mathematica
Flatten[Table[(j - m) (j + m + 1), {j, 0, 10, 1/2}, {m, -j, j}]] (* Bradley Klee, Jan 29 2016 *)
-
PARI
{for(n=1, 13, for(k=1, n, print1(k*(n - k)," ");); print(););} \\ Indranil Ghosh, Mar 12 2017
Comments