Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #6 Nov 17 2014 20:35:31
%S 1,2,3,5,4,7,6,9,8,12,10,14,11,16,13,18,15,20,17,23,19,25,21,27,22,29,
%T 24,31,26,33,28,35,30,38,32,40,34,42,36,44,37,46,39,48,41,50,43,52,45,
%U 54,47,57,49,59,51,61,53,63,55,65,56,67,58,69,60,71,62
%N Inverse of A246696 considered as a permutation of the positive integers.
%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t z = 25; t[0, 0] = 1; t[1, 0] = 2; t[1, 1] = 3; t[n_, 0] := t[n, 0] = If[OddQ[n], t[n - 1, n - 2] + 2, t[n - 1, n - 1] + 2]; t[n_, 1] := t[n, 1] = If[OddQ[n], t[n - 1, n - 1] + 2, t[n - 1, n - 2] + 2]
%t t[n_, k_] := t[n, k] = t[n, k - 2] + 2;
%t u = Flatten[Table[t[n, k], {n, 0, z}, {k, 0, n}]] (* A246696 *)
%t Flatten[Table[Position[u, n], {n, 1, 80}]] (* A246698 *)
%Y Cf. A246696, A246697.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Sep 02 2014
%E Definition corrected and edited by _M. F. Hasler_, Nov 17 2014