login
A206928
Position of n+cos(n) when {k+cos(k)} and {k+sin(k)} are jointly ranked; complement of A206929.
3
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 13 2012
STATUS
approved