A103187 - OEIS

%I #11 May 07 2018 18:33:30

%S 2,1,12,3,2,1,1,1,1,50,9,5,3,3,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,36,17,11,

%T 8,6,5,4,4,3,3,3,3,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,

%U 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,483,71,38,26,20,16,13,12,10,9,8,7,7,6,6,5,5

%N a(n) = second term in continued fraction of n-th harmonic number.

%F a(n) = floor(1/(H(n) - floor(H(n)))), where H(n) = sum{k=1 to n} 1/k.

%t f[n_] := Block[{h = HarmonicNumber[n]}, Floor[1/(h - Floor[h])]]; Table[ f[n], {n, 2, 99}] (* _Robert G. Wilson v_, Mar 19 2005 *)

%t Table[ContinuedFraction[HarmonicNumber[n]][[2]],{n,2,100}] (* _Harvey P. Dale_, May 07 2018 *)

%K nonn

%O 2,1

%A _Leroy Quet_, Mar 18 2005

%E More terms from _Robert G. Wilson v_, Mar 19 2005