|
Search: id:A112810
|
|
|
| A112810 |
|
Consider the sequence A110566: LCM{1,2,...,n}/denominator of harmonic number H(n). a(n) = A110566(n) when a(k) is greater than any a(j), k>j. |
|
+0
3
|
|
| 1, 3, 15, 45, 77, 275, 931, 1725, 1935, 5805, 29025, 41175, 166803, 1039533, 1162047, 91801713, 419498967, 2183383175, 19691916585, 216611082435, 2382721906785, 113804487945521, 22211221792244703, 422013214052649357
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Record numbers in A110566.
|
|
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
|
|
CROSSREFS
|
Cf. A110566, A001008, A002805, A003418, A025529, A098464, A112809.
Sequence in context: A101165 A127407 A161400 this_sequence A094191 A050534 A048099
Adjacent sequences: A112807 A112808 A112809 this_sequence A112811 A112812 A112813
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 19 2005
|
|
|
Search completed in 0.002 seconds
|
