%I #4 Sep 03 2022 19:23:48
%S 2,7,29,73,169,437,1343,3001,29809,32581,388631,418661,5830673,
%T 6216773,6601157,13968079,87787741,127494581,132902893,250430303,
%U 366225215,1749648679,3180922571,9914589163,257145392467,266412327067
%N Numerators of partial sums (n+1)/n (sorted).
%t s=0;lst={};Do[AppendTo[lst,Numerator[s+=((n+1)/n)]],{n,5!}];Union@lst
%t Numerator[Accumulate[Table[(n+1)/n,{n,30}]]]//Sort (* _Harvey P. Dale_, Sep 03 2022 *)
%Y Cf. A166939
%K nonn,frac
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Oct 24 2009