A112811 Terms of A110566 grouped.

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.

Links

Table of n, a(n) for n=1..68.

Mathematica

f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Flatten[Union /@ Split[Table[f[n], {n, 703}]]]

Crossrefs

Cf. A110566, A112812, A110268.

Sequence in context: A173424 A143081 A179658 * A197272 A306773 A276639

Adjacent sequences: A112808 A112809 A112810 * A112812 A112813 A112814

Keyword

nonn

Author

Robert G. Wilson v, Sep 20 2005

Status

approved