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,1

Links

Table of n, a(n) for n=1..28.

Formula

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

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 *)

Crossrefs

Cf. A002805.

Sequence in context: A062064 A158024 A166940 * A261182 A155186 A203969

Adjacent sequences: A166936 A166937 A166938 * A166940 A166941 A166942

Keyword

nonn,frac,changed

Author

Vladimir Joseph Stephan Orlovsky, Oct 24 2009

Status

approved