A166940 Numerators of partial sums (n+1)/n (sorted).
2, 7, 29, 73, 169, 437, 1343, 3001, 29809, 32581, 388631, 418661, 5830673, 6216773, 6601157, 13968079, 87787741, 127494581, 132902893, 250430303, 366225215, 1749648679, 3180922571, 9914589163, 257145392467, 266412327067
Offset: 1
Crossrefs
Cf. A166939
Programs
-
Mathematica
s=0;lst={};Do[AppendTo[lst,Numerator[s+=((n+1)/n)]],{n,5!}];Union@lst Numerator[Accumulate[Table[(n+1)/n,{n,30}]]]//Sort (* Harvey P. Dale, Sep 03 2022 *)