login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A112810 Records in A110566 (lcm{1,2,...,n}/denominator of harmonic number H(n)). 3

%I

%S 1,3,15,45,77,275,931,1725,1935,5805,29025,41175,166803,1039533,

%T 1162047,91801713,419498967,2183383175,19691916585,216611082435,

%U 2382721906785,113804487945521,22211221792244703,422013214052649357,425137351586922079,936039253001457601

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

%H Amiram Eldar, <a href="/A112810/b112810.txt">Table of n, a(n) for n = 1..28</a>

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

%t 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

%o (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

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

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Sep 19 2005

%E a(25)-a(26) from _Max Alekseyev_, Nov 29 2013

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 30 07:18 EDT 2021. Contains 346348 sequences. (Running on oeis4.)