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,2

Links

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

Formula

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

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

Prog

(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

Crossrefs

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

Sequence in context: A196237 A177146 A161400 * A334078 A094191 A050534

Adjacent sequences: A112807 A112808 A112809 * A112811 A112812 A112813

Keyword

nonn

Author

Robert G. Wilson v, Sep 19 2005

Extensions

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

Status

approved