A075710 Numerator of Sum_{k=1..n} frac(n/k), where frac(x/y) denotes the fractional part of x/y.

0, 0, 1, 1, 17, 7, 43, 61, 689, 577, 10631, 5171, 120353, 116393, 114677, 184309, 4664783, 3343463, 30250999, 23103859, 4842479, 1692541, 51155931, 98502883, 2997994963, 3162740467, 29951950003, 25702562003, 954762891787

Offset

1,5

Links

Amiram Eldar, Table of n, a(n) for n = 1..2308

Formula

Lim_{n -> infinity} log(a(n))/n = 1.

Mathematica

a[n_] := Numerator @ Sum[Mod[n, k]/k, {k, 1, n}]; Array[a, 100] (* Amiram Eldar, Sep 18 2021 *)

Prog

(PARI) a(n)=numerator(sum(i=1, n, frac(n/i)))

Crossrefs

Sequence in context: A064545 A114032 A107807 * A356060 A048368 A040275

Adjacent sequences: A075707 A075708 A075709 * A075711 A075712 A075713

Keyword

frac,nonn

Author

Benoit Cloitre, Oct 03 2002

Status

approved