%I
%S 3,1,1,1,3,3,3,3,6,4,1,14,6,1,1,1,1,2,1,9,1,4,1,1,3,2,4,1,137,1,4,2,5,
%T 1,11,1,1,1,1,41,4,1,1,2,2,1,22,1,2,4,22,1,1,9,4,1,13,1,3,2,5,1,12,1,
%U 3,1,22,1,1,5,1,1,8,1,1,3,2,3,3,109,27,1,1,4,2,2,3,1,15,1,1,1,4,1,10,1,45,1
%N Continued fraction expansion for the positive x so that the harmonic number of x is 2
%t ContinuedFraction[FindRoot[HarmonicNumber[x] == 2, {x, 3}, WorkingPrecision > 200][[1]][[2]]]
%K cofr,nonn
%O 1,1
%A _Leonhard Kreissig_, Oct 05 2009
