login
Number of partitions of n such that all parts are neither relatively prime (cf. A000837) nor are they periodic with each part occurring the same number of times (cf. A024994).
0

%I #6 Oct 03 2013 11:11:38

%S 0,0,0,0,0,0,0,1,0,3,0,4,0,9,3,12,0,22,0,28,9,43,0,63,3,82,19,107,0,

%T 170,0,189,43,258,12,372,0,435,82,557,0,808,0,900,162,1150,0,1599,9,

%U 1836,258,2252,0,3111,46,3476,435,4308,0,5827,0,6501,727,7917,85

%N Number of partitions of n such that all parts are neither relatively prime (cf. A000837) nor are they periodic with each part occurring the same number of times (cf. A024994).

%F a(n) = A000041(n) - ( A000837(n) + A024994(n))

%e a(15) = 3 because partitions 6+3+3+3, 6+6+3 and 9+3+3 satisfy the description and A000041(15) - (A000837(15) + A024994(15)) = 176 - (167 + 6) = 3.

%t A000837[n_] := Sum[ MoebiusMu[n/d]*PartitionsP[d], {d, Divisors[n]}]; A024994[n_] := Sum[ PartitionsQ[k], {k, Divisors[n] // Most}]; a[n_] := PartitionsP[n] - (A000837[n] + A024994[n]); Table[a[n], {n, 1, 65}] (* _Jean-François Alcover_, Oct 03 2013 *)

%Y A000041, A000837, A024994 and A055892.

%K easy,nonn

%O 1,10

%A _Alford Arnold_, Mar 16 2001

%E More terms from _Naohiro Nomoto_, Mar 01 2002