login
Numerators of partial sums (n+1)/n (sorted).
0

%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