|
%I
%S 0,0,2,4,3,7,13,19,17,14,22,30,27,38,52,66,64,78,74,88,82,96,113,131,
%T 126,121,143,138,132,154,178,203,197,223,251,279,271,300,332,364,357,
%U 391,427,463,455,446,484,522,512,502,492,532,520,560,546,586,570
%N Sum of the smaller parts of the partitions of 2n into two parts with larger part nonsquarefree.
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%F a(n) = Sum_{i=1..n} i * (1 - mu(2*n-i)^2), where mu is the Möbius function (A008683).
%t Table[Sum[k (1 - MoebiusMu[2 n - k]^2), {k, n}], {n, 80}]
%o (PARI) a(n) = sum(i=1, n, i*(1 - moebius(2*n-i)^2)); \\ _Michel Marcus_, Feb 11 2018
%Y Cf. A008683, A008966, A294243.
%K nonn,easy
%O 1,3
%A _Wesley Ivan Hurt_, Oct 25 2017
|
