This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A246698 #6 Nov 17 2014 20:35:31
%S A246698 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 A246698 24,31,26,33,28,35,30,38,32,40,34,42,36,44,37,46,39,48,41,50,43,52,45,
%U A246698 54,47,57,49,59,51,61,53,63,55,65,56,67,58,69,60,71,62
%N A246698 Inverse of A246696 considered as a permutation of the positive integers.
%H A246698 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t A246698 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 A246698 t[n_, k_] := t[n, k] = t[n, k - 2] + 2;
%t A246698 u = Flatten[Table[t[n, k], {n, 0, z}, {k, 0, n}]] (* A246696 *)
%t A246698 Flatten[Table[Position[u, n], {n, 1, 80}]] (* A246698 *)
%Y A246698 Cf. A246696, A246697.
%K A246698 nonn,easy
%O A246698 1,2
%A A246698 _Clark Kimberling_, Sep 02 2014
%E A246698 Definition corrected and edited by _M. F. Hasler_, Nov 17 2014