Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #15 Apr 17 2022 22:54:29
%S 0,4,6,1,3,7,11,2,5,10,17,23,21,9,28,26,24,8,34,12,35,13,32,29,44,19,
%T 45,15,18,14,57,56,16,20,58,48,25,54,73,76,72,27,75,82,62,66,84,87,71,
%U 78,95,31,74,94,97,103,22,40,39,30,86,33,41,91,46,42,117,119,122,37
%N Main diagonal of A018219, i.e., (n, n, a_n) is a winning position.
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t mex[s_] := Min[Complement[Range[0, Max[{s, -1}] + 1], Flatten[s]]];
%t f[s_] := Join[s, s + Table[i, {i, Length[s]}]];
%t T[n_, k_] := T[n, k] = mex[{f[Table[T[n - i, k], {i, n}]], f[Table[T[n, k - i], {i, k}]], f[Table[T[n - i, k - i], {i, Min[n, k]}]]}];
%t a[n_] := T[n, n];
%t Table[a[n], {n, 0, 69}] (* _Jean-François Alcover_, Aug 19 2019, from A018219 Mma code *)
%Y Cf. A018219, Inverse is A077226.
%K nonn,nice
%O 0,2
%A _Michael Kleber_
%E Edited and extended by _Christian G. Bower_, Oct 29 2002