cp's OEIS Frontend

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

%I A206929 #5 Mar 30 2012 18:58:12
%S A206929 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 A206929 49,53,55,57,58,59,61,63,67,69,70,71,73,75,79,81,82,83,85,87,91,93,94,
%U A206929 95,97,99,101,105,107,108,109,111,113,117,119,120,121,123,125
%N A206929 Position of n+sin(n) when {k+cos(k)} and {k+sin(k)} are jointly ranked; complement of A206928.
%t A206929 f[n_] := N[n + Cos[n]]; z = 120;
%t A206929 g[n_] := N[n + Sin[n]];
%t A206929 c = Table[f[n], {n, 1, z}];
%t A206929 s = Table[g[n], {n, 1, z}];
%t A206929 j = Sort[Union[c, s]];
%t A206929 p[n_] := Position[j, f[n]]; q[n_] := Position[j, g[n]];
%t A206929 Flatten[Table[p[n], {n, 1, z}]]    (* A206928 *)
%t A206929 Flatten[Table[q[n], {n, 1, z}]]    (* A206929 *)
%Y A206929 Cf. A206928.
%K A206929 nonn
%O A206929 1,1
%A A206929 _Clark Kimberling_, Feb 13 2012