A206912 Position of log(n+1) when the partial sums of the harmonic series are jointly ranked with the set {log(k+1)}; complement of A206911.

1, 3, 4, 6, 7, 9, 10, 12, 14, 15, 17, 18, 20, 21, 23, 25, 26, 28, 29, 31, 32, 34, 35, 37, 39, 40, 42, 43, 45, 46, 48, 50, 51, 53, 54, 56, 57, 59, 60, 62, 64, 65, 67, 68, 70, 71, 73, 75, 76, 78, 79, 81, 82, 84, 85, 87, 89, 90, 92, 93, 95, 96, 98, 99, 101, 103, 104

Offset

1,2

Comments

Conjecture: the difference sequence of A206912 consists of 1s and 2s; see Comments at A206911.

Links

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

Example

(See the example at A206911.)

Mathematica

f[n_] := Sum[1/k, {k, 1, n}];  z = 300;
g[n_] := N[Log[n + 1]];
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}]]    (* A206911 *)
Flatten[Table[q[n], {n, 1, z}]]    (* A206912 *)

Crossrefs

Cf. A206911.

Sequence in context: A292642 A249117 A093610 * A330113 A329923 A187342

Adjacent sequences: A206909 A206910 A206911 * A206913 A206914 A206915

Keyword

nonn

Author

Clark Kimberling, Feb 13 2012

Status

approved