A112809 Positions of records in A110566.

1, 6, 20, 21, 42, 120, 342, 506, 567, 594, 600, 610, 2184, 4896, 6108, 6162, 6498, 12760, 14067, 14157, 14201, 93942, 123462, 123519, 734413, 2451397, 4591010, 11571129, 13346540, 13619348, 13619790, 46180567

Offset: 1

Author

Robert G. Wilson v, Sep 19 2005

Keywords

• more
• nonn

Crossrefs

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

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, n]], {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(n, ", "); rec = new););} \\ Michel Marcus, Mar 07 2018

Extensions

a(27)-a(28) from Amiram Eldar, Dec 18 2018

a(29)-a(31) from Chai Wah Wu, Mar 08 2021

a(32) from Chai Wah Wu, Mar 14 2021