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

1, 2, 4, 8, 10, 12, 14, 15, 16, 18, 22, 24, 26, 27, 28, 30, 34, 36, 38, 39, 40, 42, 46, 48, 50, 51, 52, 54, 56, 60, 62, 64, 65, 66, 68, 72, 74, 76, 77, 78, 80, 84, 86, 88, 89, 90, 92, 96, 98, 100, 102, 103, 104, 106, 110, 112, 114, 115, 116, 118, 122, 124, 126

Offset

1,2

Links

Table of n, a(n) for n=1..63.

Mathematica

f[n_] := N[n + Cos[n]]; z = 120;
g[n_] := N[n + Sin[n]];
c = Table[f[n], {n, 1, z}];
s = Table[g[n], {n, 1, z}];
j = Sort[Union[c, s]];
p[n_] := Position[j, f[n]]; q[n_] := Position[j, g[n]];
Flatten[Table[p[n], {n, 1, z}]]    (* A206928 *)
Flatten[Table[q[n], {n, 1, z}]]    (* A206929 *)

Crossrefs

Cf. A206929.

Sequence in context: A178330 A029992 A346139 * A133012 A039011 A132190

Adjacent sequences: A206925 A206926 A206927 * A206929 A206930 A206931

Keyword

nonn

Author

Clark Kimberling, Feb 13 2012

Status

approved