login
A112811
Terms of A110566 grouped.
2
1, 3, 1, 3, 15, 45, 15, 3, 1, 11, 77, 7, 1, 3, 9, 27, 9, 3, 33, 11, 1, 25, 5, 55, 275, 25, 1, 13, 39, 3, 9, 27, 9, 3, 1, 17, 1, 49, 7, 49, 931, 19, 1, 11, 319, 11, 319, 11, 1, 3, 75, 1725, 345, 15, 645, 1935, 5805, 29025, 675, 41175, 13725, 549, 20313, 6771, 183, 3, 411, 15207
OFFSET
1,2
COMMENTS
A110566: LCM{1,2,...,n}/denominator of harmonic number H(n).
The factor of change from a(n) to a(n+1) is: 3,3,3,5,3,3,5,3,11,7,11,7,3,3,3,3,3,11,3,11,25,5,11,5,11,25,13,3,13,3,3,3,3,..., . see A110268.
MATHEMATICA
f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Flatten[Union /@ Split[Table[f[n], {n, 703}]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2005
STATUS
approved