cp's OEIS Frontend

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

%I A206928 #6 Mar 30 2012 18:58:12
%S A206928 1,2,4,8,10,12,14,15,16,18,22,24,26,27,28,30,34,36,38,39,40,42,46,48,
%T A206928 50,51,52,54,56,60,62,64,65,66,68,72,74,76,77,78,80,84,86,88,89,90,92,
%U A206928 96,98,100,102,103,104,106,110,112,114,115,116,118,122,124,126
%N A206928 Position of n+cos(n) when {k+cos(k)} and {k+sin(k)} are jointly ranked; complement of A206929.
%t A206928 f[n_] := N[n + Cos[n]]; z = 120;
%t A206928 g[n_] := N[n + Sin[n]];
%t A206928 c = Table[f[n], {n, 1, z}];
%t A206928 s = Table[g[n], {n, 1, z}];
%t A206928 j = Sort[Union[c, s]];
%t A206928 p[n_] := Position[j, f[n]]; q[n_] := Position[j, g[n]];
%t A206928 Flatten[Table[p[n], {n, 1, z}]]    (* A206928 *)
%t A206928 Flatten[Table[q[n], {n, 1, z}]]    (* A206929 *)
%Y A206928 Cf. A206929.
%K A206928 nonn
%O A206928 1,2
%A A206928 _Clark Kimberling_, Feb 13 2012