cp's OEIS Frontend

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.

%I A206912 #8 Mar 30 2012 18:58:12
%S A206912 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,
%T A206912 40,42,43,45,46,48,50,51,53,54,56,57,59,60,62,64,65,67,68,70,71,73,75,
%U A206912 76,78,79,81,82,84,85,87,89,90,92,93,95,96,98,99,101,103,104
%N 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.
%C A206912 Conjecture:  the difference sequence of A206912 consists of 1s and 2s; see Comments at A206911.
%e A206912 (See the example at A206911.)
%t A206912 f[n_] := Sum[1/k, {k, 1, n}];  z = 300;
%t A206912 g[n_] := N[Log[n + 1]];
%t A206912 c = Table[f[n], {n, 1, z}];
%t A206912 s = Table[g[n], {n, 1, z}];
%t A206912 j = Sort[Union[c, s]];
%t A206912 p[n_] := Position[j, f[n]]; q[n_] := Position[j, g[n]];
%t A206912 Flatten[Table[p[n], {n, 1, z}]]    (* A206911 *)
%t A206912 Flatten[Table[q[n], {n, 1, z}]]    (* A206912 *)
%Y A206912 Cf. A206911.
%K A206912 nonn
%O A206912 1,2
%A A206912 _Clark Kimberling_, Feb 13 2012