OFFSET
0,5
LINKS
EXAMPLE
Array begins
1, 1, 2, 4, 7, 3, 8, 14, 21, 13, ...
1, 2, 4, 7, 3, 8, 14, 21, 13, 22, ...
1, 3, 6, 2, 7, 13, 20, 12, 21, 11, ...
1, 4, 8, 3, 9, 2, 10, 19, 29, 18, ...
1, 5, 10, 4, 11, 3, 12, 2, 13, 25, ...
1, 6, 12, 5, 13, 4, 14, 3, 15, 2, ...
1, 7, 14, 6, 15, 5, 16, 4, 17, 3, ...
1, 8, 16, 7, 17, 6, 18, 5, 19, 4, ...
MATHEMATICA
T[_, 0] = 1; T[n_, k_] := T[n, k] = If[t = T[n, k-1] - (n+k-1); t > 0 && FreeQ[Table[T[n, j], {j, 0, k-1}], t], t, T[n, k-1] + (n+k-1)]; Table[ T[n-k, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Jean-François Alcover, Feb 18 2018 *)
CROSSREFS
AUTHOR
N. J. A. Sloane, Dec 16 2001
EXTENSIONS
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 05 2003
STATUS
approved