login
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.
2
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.
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Feb 13 2012
STATUS
approved