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
Keywords
Programs
-
Mathematica
f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Flatten[Union /@ Split[Table[f[n], {n, 703}]]]
Comments