|
%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
|
