A334922 Square array T(n,k) = ((3/2)*n*k + (1/2)*A319929(n,k))/2, n >= 1, k >= 1, read by antidiagonals.
1, 2, 2, 3, 3, 3, 4, 5, 5, 4, 5, 6, 8, 6, 5, 6, 8, 10, 10, 8, 6, 7, 9, 13, 12, 13, 9, 7, 8, 11, 15, 16, 16, 15, 11, 8, 9, 12, 18, 18, 21, 18, 18, 12, 9, 10, 14, 20, 22, 24, 24, 22, 20, 14, 10, 11, 15, 23, 24, 29, 27, 29, 24, 23, 15, 11
Offset: 1
Examples
Array begins: 1 2 3 4 5 6 7 8 9 10 ... 2 3 5 6 8 9 11 12 14 15 ... 3 5 8 10 13 15 18 20 23 25 ... 4 6 10 12 16 18 22 24 28 30 ... 5 8 13 16 21 24 29 32 37 40 ... 6 9 15 18 24 27 33 36 42 45 ... 7 11 18 22 29 33 40 44 51 55 ... 8 12 20 24 32 36 44 48 56 60 ... 9 14 23 28 37 42 51 56 65 70 ... 10 15 25 30 40 45 55 60 70 75 ... ...
Links
- David Lovler, Table of n, a(n) for n = 1..465
Programs
-
Mathematica
Table[Function[n, ((3/2)*n*k + (1/2)*If[OddQ@ n, If[OddQ@ k, n + k - 1, k], If[OddQ@ k, n, 0]])/2][m - k + 1], {m, 11}, {k, m}] // Flatten (* Michael De Vlieger, Jun 23 2020 *)
Comments