A206910 Position of 2n+sin(n) when the sets {2k+cos(k)} and {2k+sin(k)} are jointly ranked.

2, 4, 6, 7, 9, 11, 13, 16, 18, 20, 21, 23, 25, 28, 30, 32, 33, 35, 37, 40, 42, 44, 45, 47, 49, 52, 54, 56, 58, 59, 61, 63, 66, 68, 70, 71, 73, 75, 78, 80, 82, 83, 85, 87, 90, 92, 94, 95, 97, 99, 101, 104, 106, 108, 109, 111, 113, 116, 118, 120, 121, 123, 125

Offset

1,1

Links

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

Mathematica

f[n_] := N[2 n + Cos[n]];
g[n_] := N[2 n + Sin[n]]; z = 120;
c = Table[f[n], {n, 1, z}];
s = Table[g[n], {n, 1, z}];
j = Sort[Union[c, s]];
p[n_] := Position[j, f[n]];
q[n_] := Position[j, g[n]];
Flatten[Table[p[n], {n, 1, z}]] (* A206909 *)
Flatten[Table[q[n], {n, 1, z}]] (* A206910 *)

Crossrefs

Cf. A206909.

Sequence in context: A287113 A278039 A076521 * A139529 A341291 A307830

Adjacent sequences: A206907 A206908 A206909 * A206911 A206912 A206913

Keyword

nonn

Author

Clark Kimberling, Feb 13 2012

Status

approved