%I #11 Jan 01 2024 22:28:44
%S 0,0,1,2,5,5,11,12,17,19,27,24,37,38,44,48,61,58,75,73,85,93,107,99,
%T 122,127,137,139,161,152,181,179,196,206,218,212,247,250,263,261,295,
%U 284,321,319,334,353,377,360,403,405,428,434,467,457,491,489,521,536,563,536,597,603,615
%N a(n) = Sum_{k=1..n} pi(k) * (ceiling(n/k) - floor(n/k)).
%F a(n) = A368610(n) - A368611(n).
%F a(n) = A046992(n) - A062774(n).
%F a(n) = A368641(n) + A048865(n).
%t Table[Sum[PrimePi[k] (Ceiling[n/k] - Floor[n/k]), {k, n}], {n, 100}]
%Y Cf. A000720 (pi), A024816, A046992, A048865, A049820, A062774, A368610, A368611, A368641.
%K nonn,easy
%O 1,4
%A _Wesley Ivan Hurt_, Dec 31 2023