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

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

%S 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 50,51,52,54,56,60,62,64,65,66,68,72,74,76,77,78,80,84,86,88,89,90,92,

%U 96,98,100,102,103,104,106,110,112,114,115,116,118,122,124,126

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

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

%K nonn

%O 1,2

%A _Clark Kimberling_, Feb 13 2012