A246698 Inverse of A246696 considered as a permutation of the positive integers.

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, 24, 31, 26, 33, 28, 35, 30, 38, 32, 40, 34, 42, 36, 44, 37, 46, 39, 48, 41, 50, 43, 52, 45, 54, 47, 57, 49, 59, 51, 61, 53, 63, 55, 65, 56, 67, 58, 69, 60, 71, 62

Offset

1,2

Links

Table of n, a(n) for n=1..67.

Index entries for sequences that are permutations of the natural numbers

Mathematica

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[n_, k_] := t[n, k] = t[n, k - 2] + 2;
u = Flatten[Table[t[n, k], {n, 0, z}, {k, 0, n}]] (* A246696 *)
Flatten[Table[Position[u, n], {n, 1, 80}]]  (* A246698 *)

Crossrefs

Cf. A246696, A246697.

Sequence in context: A227082 A227142 A246696 * A246681 A123883 A255558

Adjacent sequences: A246695 A246696 A246697 * A246699 A246700 A246701

Keyword

nonn,easy

Author

Clark Kimberling, Sep 02 2014

Extensions

Definition corrected and edited by M. F. Hasler, Nov 17 2014

Status

approved