login
a(n) = Sum_{k=1..n} pi(k) * (ceiling(n/k) - floor(n/k)).
2

%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