cp's OEIS Frontend

A167932 Number of partitions of n such that all parts are equal or all parts are distinct.

%I A167932 #11 Mar 11 2014 01:34:16
%S A167932 1,1,2,3,4,4,7,6,9,10,13,13,20,19,25,30,36,39,51,55,69,79,92,105,129,
%T A167932 144,168,195,227,257,303,341,395,451,515,588,676,761,867,985,1120,
%U A167932 1261,1433,1611,1821,2053,2307,2591,2919,3266,3663,4100,4587,5121,5725,6381
%N A167932 Number of partitions of n such that all parts are equal or all parts are distinct.
%C A167932 Note that for positive integers the number of partitions of n such that all parts are equal is equal to the number of proper divisors of n. (A032741(n)).
%H A167932 Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polpatru.jpg">Illustration of the shell model of partitions (2D and 3D view)</a>
%H A167932 Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polpa2dt.jpg">Illustration of the shell model of partitions (2D view)</a>
%H A167932 Omar E. Pol, <a href="http://www.polprimos.com/imagenespub/polpa3dt.jpg">Illustration of the shell model of partitions (3D view)</a>
%F A167932 a(n) = A000041(n) - A167930(n).
%F A167932 a(n) = A000009(n) + A032741(n).
%e A167932 The partitions of 6 are:
%e A167932 6 .............. All parts are distinct ..... (1).
%e A167932 5+1 ............ All parts are distinct ..... (2).
%e A167932 4+2 ............ All parts are distinct ..... (3).
%e A167932 4+1+1 .......... Only some parts are equal.
%e A167932 3+3 ............ All parts are equal ........ (4).
%e A167932 3+2+1 .......... All parts are distinct ..... (5).
%e A167932 3+1+1+1 ........ Only some parts are equal.
%e A167932 2+2+2 .......... All parts are equal ........ (6).
%e A167932 2+2+1+1 ........ Only some parts are equal.
%e A167932 2+1+1+1+1 ...... Only some parts are equal.
%e A167932 1+1+1+1+1+1 .... All parts are equal ........ (7).
%e A167932 So a(6) = 7.
%t A167932 ds[n_]:=Module[{lun=Length[Union[n]]},Length[n]==lun||lun==1]; Table[ Count[ IntegerPartitions[n],_?(ds)],{n,0,60}] (* _Harvey P. Dale_, Sep 13 2011 *)
%Y A167932 Cf. A000005, A000009, A000041, A000065, A032741, A047967, A111133, A134400, A135010, A138121, A167930, A167931, A167933.
%K A167932 nonn
%O A167932 0,3
%A A167932 _Omar E. Pol_, Nov 15 2009
%E A167932 More terms from _D. S. McNeil_, May 10 2010