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

%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