|
| |
|
|
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.
|
|
2
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| 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: A196237 A177146 A161400 * A094191 A050534 A048099
Adjacent sequences: A112807 A112808 A112809 * A112811 A112812 A112813
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 19 2005
|
| |
|
|
