%I #10 Aug 27 2024 15:23:16
%S 2,7,29,73,437,169,1343,3001,29809,32581,388631,418661,5830673,
%T 6216773,6601157,13968079,250430303,87787741,1749648679,366225215,
%U 127494581,132902893,3180922571,9914589163,257145392467,266412327067,2480998948403,2564180718503
%N Numerators of partial sums (n+1)/n (not sorted).
%F 2/1, 3/2, 4/3, 5/4, 6/5, ... -> 2/1, 7/2, 29/6, 73/12, 437/60, ... .
%t s=0;lst={};Do[AppendTo[lst,Numerator[s+=((n+1)/n)]],{n,3*4!}];lst
%t Numerator[Accumulate[Table[(n+1)/n,{n,30}]]] (* _Harvey P. Dale_, Jun 14 2013 *)
%Y Cf. A002805.
%K nonn,frac
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Oct 24 2009