A112810 Records in A110566 (lcm{1,2,...,n}/denominator of harmonic number H(n)).

1, 3, 15, 45, 77, 275, 931, 1725, 1935, 5805, 29025, 41175, 166803, 1039533, 1162047, 91801713, 419498967, 2183383175, 19691916585, 216611082435, 2382721906785, 113804487945521, 22211221792244703, 422013214052649357, 425137351586922079, 936039253001457601

Offset: 1

Author

Robert G. Wilson v, Sep 19 2005

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..28

Crossrefs

Cf. A110566, A001008, A002805, A003418, A025529, A098464, A112809.

Programs

Mathematica

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

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

Formula

a(n) = A110566(A112809(n)).

Extensions

a(25)-a(26) from Max Alekseyev, Nov 29 2013