%I #2 Mar 30 2012 17:31:17
%S 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,
%T 13,39,3,9,27,9,3,1,17,1,49,7,49,931,19,1,11,319,11,319,11,1,3,75,
%U 1725,345,15,645,1935,5805,29025,675,41175,13725,549,20313,6771,183,3,411,15207
%N Terms of A110566 grouped.
%C A110566: LCM{1,2,...,n}/denominator of harmonic number H(n).
%C 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.
%t f[n_] := LCM @@ Range[n]/Denominator[HarmonicNumber[n]]; Flatten[Union /@ Split[Table[f[n], {n, 703}]]]
%Y Cf. A110566, A112812, A110268.
%K nonn
%O 1,2
%A _Robert G. Wilson v_, Sep 20 2005
|