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

Author

Clark Kimberling, Feb 13 2012

Keywords

• nonn

Comments

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

Examples

			(See the example at A206911.)
		

Crossrefs

Cf. A206911.

Programs

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 *)