%I #10 May 18 2023 14:46:32
%S 0,0,1,1,2,3,4,5,6,7,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,
%T 24,25,26,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,
%U 46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63
%N Floor(sum(i/(i+1)),i=1..n).
%C The first numbers which appear twice in the sequence are 0, 1, 7, 26, 77, 220, 608, 1665, 4540, 12356, 33605, 91367, 248383, 675199,... - _Giovanni Resta_, Feb 26 2014
%C These numbers appear at roughly exp(n - gamma). - _Charles R Greathouse IV_, Feb 26 2014
%H Giovanni Resta, <a href="/A238401/b238401.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = n - log n + O(1). - _Charles R Greathouse IV_, Feb 26 2014
%e a(3) = floor(0/1 + 1/2 + 2/3 + 3/4) = floor(1.91666...) = 1.
%t Floor[Accumulate[Table[i/(i+1),{i,0,70}]]] (* _Harvey P. Dale_, May 18 2023 *)
%o (JavaScript)
%o c=0;
%o for (i=1;i<50;i++) {
%o c+=i/(i+1);
%o document.write(Math.floor(c)+", ");
%o }
%o (PARI) a(n)=n-ceil(sum(i=2,n,1./i)) \\ _Charles R Greathouse IV_, Feb 26 2014
%Y Cf. A055980, A001008, A002805.
%K nonn
%O 0,5
%A _Jon Perry_, Feb 26 2014
%E a(50)-a(67) from _Giovanni Resta_, Feb 26 2014