|
%I #16 Sep 17 2020 17:01:20
%S 0,0,1,1,2,2,3,3,3,3,4,4,5,6,7,7,7,7,7,7,7,7,9,9,10,10,11,11,11,11,12,
%T 13,13,13,14,14,14,15,16,16,17,17,18,18,18,18,19,19,19,20,20,20,20,20,
%U 20,20,20,20,22,22,23,23,25,25,25,25,26,27,27,27,28
%N Number of partitions of 2n into two parts with the larger part nonsquarefree.
%H <a href="/index/Par#part">Index entries for sequences related to partitions</a>
%F a(n) = Sum_{i=1..n} (1 - mu(2*n-i)^2), where mu is the Möbius function (A008683).
%t Table[Sum[(1 - MoebiusMu[2 n - k]^2), {k, n}], {n, 80}]
%o (PARI) a(n) = sum(i=1, n, 1 - moebius(2*n-i)^2); \\ _Michel Marcus_, Feb 11 2018
%Y Cf. A008683, A008966, A057627.
%K nonn,easy
%O 1,5
%A _Wesley Ivan Hurt_, Oct 25 2017
|
