login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A112809 Positions of records in A110566. 1
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 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
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
Sequence in context: A096897 A063601 A222604 * A289659 A237043 A243905
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 23 06:45 EDT 2024. Contains 371906 sequences. (Running on oeis4.)