%I #12 Nov 18 2014 03:25:35
%S 2,5,7,9,12,14,16,18,20,23,25,27,29,31,33,35,38,40,42,44,46,48,50,52,
%T 54,57,59,61,63,65,67,69,71,73,75,77,80,82,84,86,88,90,92,94,96,98,
%U 100,102,104,107,109,111,113,115,117,119,121,123,125,127,129,131
%N Position of last n in A246694 (read as a sequence, with offset changed to 1); complement of A246705.
%C 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
%e 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,...).
%t z = 25; t[0, 0] = 1; t[1, 0] = 1; t[1, 1] = 2;
%t t[n_, 0] := If[OddQ[n], t[n - 1, n - 2] + 1, t[n - 1, n - 1] + 1];
%t t[n_, 1] := If[OddQ[n], t[n - 1, n - 1] + 1, t[n - 1, n - 2] + 1];
%t t[n_, k_] := t[n, k - 2] + 1;
%t u = Flatten[Table[t[n, k], {n, 0, z}, {k, 0, n}]]; (*A246694*)
%t w[n_] := Flatten[Position[u, n]]; A246706 = Table[Last[w[n]], {n, 1, 3*z}]
%Y Cf. A246694, A246695, A246705.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Sep 02 2014