

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
(list;
graph;
refs;
listen;
history;
text;
internal format)



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



