%I #5 Sep 13 2019 17:05:18
%S 1,1,1,1,1,1,2,1,1,1,1,3,3,1,1,1,1,5,4,1,1,7,1,1,7,5,1,1,1,1,11,15,12,
%T 6,1,1,1,1,15,7,1,1,30,19,1,1,22,34,8,1,1,1,1,30,58,27,9,1,1,1,1,42,
%U 84,64,10,1,1,105,37,1,1,56,11,1
%N Irregular triangle read by rows where T(n,d) is the number of integer partitions of n with mean d|n.
%e Triangle begins:
%e 1
%e 1 1
%e 1 1
%e 1 2 1
%e 1 1
%e 1 3 3 1
%e 1 1
%e 1 5 4 1
%e 1 7 1
%e 1 7 5 1
%e 1 1
%e 1 11 15 12 6 1
%e 1 1
%e 1 15 7 1
%e 1 30 19 1
%e 1 22 34 8 1
%t Table[Length[Select[IntegerPartitions[n],Mean[#]==d&]],{n,20},{d,Divisors[n]}]
%Y Row sums are A067538.
%Y The version for subsets is A327481.
%Y Cf. A066571, A237984, A240850, A327474, A327483, A327484.
%K nonn,tabf
%O 1,7
%A _Gus Wiseman_, Sep 13 2019
|