%I #11 Apr 08 2022 04:04:51
%S 1,2,5,12,8,4,5,7,7,13,50,15,6,39,43,9,14,61,25,17,36,13,5,17,18,20,
%T 68,45,25,198,88,1090,120,244,29,29,24,111,567,22,20,37,1812,59,41,
%U 336,121,32,37,314,104,162,289,146,1557,42,78,639,52,812,116,32,131,236,59
%N Maximum element in the simple continued fraction expansion of H(n) = 1+1/2+1/3+...+1/n, the n-th harmonic number.
%H Amiram Eldar, <a href="/A070266/b070266.txt">Table of n, a(n) for n = 1..10000</a>
%e The simple continued fraction expansion of H(10) is [2, 1, 13, 12, 1, 3, 1, 2], hence a(10) = 13.
%t Table[ Max[ ContinuedFraction[ HarmonicNumber[n]]], {n, 1, 65}]
%Y Cf. A001008, A002805, A055573.
%K easy,nonn
%O 1,2
%A _Benoit Cloitre_, May 09 2002
|