%I #10 Sep 18 2021 07:10:33
%S 0,0,1,1,17,7,43,61,689,577,10631,5171,120353,116393,114677,184309,
%T 4664783,3343463,30250999,23103859,4842479,1692541,51155931,98502883,
%U 2997994963,3162740467,29951950003,25702562003,954762891787
%N Numerator of Sum_{k=1..n} frac(n/k), where frac(x/y) denotes the fractional part of x/y.
%H Amiram Eldar, <a href="/A075710/b075710.txt">Table of n, a(n) for n = 1..2308</a>
%F Lim_{n -> infinity} log(a(n))/n = 1.
%t a[n_] := Numerator @ Sum[Mod[n, k]/k, {k, 1, n}]; Array[a, 100] (* _Amiram Eldar_, Sep 18 2021 *)
%o (PARI) a(n)=numerator(sum(i=1,n,frac(n/i)))
%K frac,nonn
%O 1,5
%A _Benoit Cloitre_, Oct 03 2002
|