A061483 Numerator of 1 + 1/2 + 2/3 + 3/4 + ... + (n-1)/n.

1, 1, 3, 13, 35, 223, 91, 757, 1759, 18071, 20339, 248929, 274339, 3899047, 4233667, 4570003, 9815681, 178398097, 63323219, 1276654601, 270074449, 94951643, 99889667, 2411272037, 7575891845, 197964062333, 206544557333

Offset

1,3

Links

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

Example

1, 3/2, 13/6, 35/12, 223/60,...

Maple

summ := 1; for n from 1 to 30 do printf("%d ", numer(summ)); if (1 = 1) then summ := summ + (n-1)/n: end if; od;

Mathematica

Numerator[Accumulate[Join[{1}, Table[(n-1)/n, {n, 30}]]]] (* Harvey P. Dale, Jan 18 2012 *)

Crossrefs

Sequence in context: A146725 A146424 A146049 * A340410 A128288 A113115

Adjacent sequences: A061480 A061481 A061482 * A061484 A061485 A061486

Keyword

nonn,frac,easy

Author

Amarnath Murthy, May 05 2001

Extensions

Corrected and extended by Winston C. Yang (winston(AT)cs.wisc.edu), May 19 2001

Status

approved