%I #16 Dec 18 2018 14:59:48
%S 1,3,15,45,77,275,931,1725,1935,5805,29025,41175,166803,1039533,
%T 1162047,91801713,419498967,2183383175,19691916585,216611082435,
%U 2382721906785,113804487945521,22211221792244703,422013214052649357,425137351586922079,936039253001457601
%N Records in A110566 (lcm{1,2,...,n}/denominator of harmonic number H(n)).
%H Amiram Eldar, <a href="/A112810/b112810.txt">Table of n, a(n) for n = 1..28</a>
%F a(n) = A110566(A112809(n)).
%t c = 0; a = h = 1; t = {}; Do[a = LCM[a, n]; h = h + 1/n; b = a/Denominator[h]; If[b > c, c = b; AppendTo[t, b]], {n, 10^6}]; t
%o (PARI) lista(nn) = {rec = 0; for (n=1, nn, new = lcm(vector(n, k, k))/denominator(sum(k=1, n, 1/k)); if (new > rec, print1(new, ", "); rec = new););} \\ _Michel Marcus_, Mar 07 2018
%Y Cf. A110566, A001008, A002805, A003418, A025529, A098464, A112809.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 19 2005
%E a(25)-a(26) from _Max Alekseyev_, Nov 29 2013