A206929 - OEIS

%I #5 Mar 30 2012 18:58:12

%S 3,5,6,7,9,11,13,17,19,20,21,23,25,29,31,32,33,35,37,41,43,44,45,47,

%T 49,53,55,57,58,59,61,63,67,69,70,71,73,75,79,81,82,83,85,87,91,93,94,

%U 95,97,99,101,105,107,108,109,111,113,117,119,120,121,123,125

%N Position of n+sin(n) when {k+cos(k)} and {k+sin(k)} are jointly ranked; complement of A206928.

%t f[n_] := N[n + Cos[n]]; z = 120;

%t g[n_] := N[n + Sin[n]];

%t c = Table[f[n], {n, 1, z}];

%t s = Table[g[n], {n, 1, z}];

%t j = Sort[Union[c, s]];

%t p[n_] := Position[j, f[n]]; q[n_] := Position[j, g[n]];

%t Flatten[Table[p[n], {n, 1, z}]]    (* A206928 *)

%t Flatten[Table[q[n], {n, 1, z}]]    (* A206929 *)

%Y Cf. A206928.

%K nonn

%O 1,1

%A _Clark Kimberling_, Feb 13 2012