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

2, 7, 29, 73, 437, 169, 1343, 3001, 29809, 32581, 388631, 418661, 5830673, 6216773, 6601157, 13968079, 250430303, 87787741, 1749648679, 366225215, 127494581, 132902893, 3180922571, 9914589163, 257145392467, 266412327067, 2480998948403, 2564180718503

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Oct 24 2009

Keywords

• nonn
• frac

Crossrefs

Cf. A002805.

Programs

Mathematica

s=0;lst={};Do[AppendTo[lst,Numerator[s+=((n+1)/n)]],{n,3*4!}];lst
Numerator[Accumulate[Table[(n+1)/n,{n,30}]]] (* Harvey P. Dale, Jun 14 2013 *)

Formula

2/1, 3/2, 4/3, 5/4, 6/5, ... -> 2/1, 7/2, 29/6, 73/12, 437/60, ... .