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

Links

Table of n, a(n) for n=1..32.

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

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

Crossrefs

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

Sequence in context: A096897 A063601 A222604 * A289659 A237043 A243905

Adjacent sequences: A112806 A112807 A112808 * A112810 A112811 A112812

Keyword

more,nonn

Author

Robert G. Wilson v, Sep 19 2005

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

Status

approved