A246706 Position of last n in A246694 (read as a sequence, with offset changed to 1); complement of A246705.

2, 5, 7, 9, 12, 14, 16, 18, 20, 23, 25, 27, 29, 31, 33, 35, 38, 40, 42, 44, 46, 48, 50, 52, 54, 57, 59, 61, 63, 65, 67, 69, 71, 73, 75, 77, 80, 82, 84, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 107, 109, 111, 113, 115, 117, 119, 121, 123, 125, 127, 129, 131

Offset

1,1

Comments

Note that A246694 has offset 0, so the values here are off by 1 from the positions as given by the indices (b-file or list) in that sequence. - M. F. Hasler, Nov 17 2014

Links

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

Example

A246694 begins with 1, 1, 2, 3, 2, 4, 3, 5, 4, 6, 7, 5, 8, 6, 9, 7, so that, for a(n) = position of first n and b(n) = position of last n, we have a = (1,3,4,6,8,10,...) and b = (2,5,7,9,12,...).

Mathematica

z = 25; t[0, 0] = 1; t[1, 0] = 1; t[1, 1] = 2;
t[n_, 0] := If[OddQ[n], t[n - 1, n - 2] + 1, t[n - 1, n - 1] + 1];
t[n_, 1] := If[OddQ[n], t[n - 1, n - 1] + 1, t[n - 1, n - 2] + 1];
t[n_, k_] := t[n, k - 2] + 1;
u = Flatten[Table[t[n, k], {n, 0, z}, {k, 0, n}]]; (*A246694*)
w[n_] := Flatten[Position[u, n]]; A246706 = Table[Last[w[n]], {n, 1, 3*z}]

Crossrefs

Cf. A246694, A246695, A246705.

Sequence in context: A024666 A184397 A024671 * A304498 A184743 A184749

Adjacent sequences: A246703 A246704 A246705 * A246707 A246708 A246709

Keyword

nonn,easy

Author

Clark Kimberling, Sep 02 2014

Status

approved