%I #12 Sep 08 2022 08:46:24
%S 0,0,1,1,5,5,12,14,21,26,39,39,56,65,77,85,108,113,140,148,169,189,
%T 223,224,257,282,312,329,375,382,432,454,494,531,577,583,645,688,738,
%U 757,827,846,920,957,1003,1058,1140,1149,1228,1274,1344,1391,1486,1518,1601,1639,1720,1794,1901,1903,2015,2096
%N Partial sums of A057641.
%F a(n) = A328363(n) - A024916(n).
%o (Magma) f:=func<n| Floor(a+Exp(a)*Log(a))-DivisorSigma(1,n) where a is HarmonicNumber(n) >; [&+[f(k):k in [1..n]]:n in [1..62]]; // _Marius A. Burtea_, Nov 18 2019
%Y Cf. A000203, A001008, A002805, A024916, A057640, A057641, A328363.
%K nonn
%O 1,5
%A _Omar E. Pol_, Oct 26 2019