|
%I #16 Jul 26 2016 16:12:28
%S 0,0,1,3,8,15,29,48,79,123,188,276,404,575,808,1122,1540,2089,2811,
%T 3748,4958,6519,8504,11034,14231,18268,23312,29638,37486,47245,59279,
%U 74140,92347,114703,141933,175174,215478,264407,323448,394788,480509,583609
%N Total number of parts smaller than the largest part, in all partitions of n.
%C a(n) = Sum(k*A116685(n,k), k>=0).
%C Also, sum over all partitions of n of the difference between the largest part and the smallest part. - _Franklin T. Adams-Watters_, Feb 29 2008
%C a(n) = A211870(n) + A211881(n). - _Alois P. Heinz_, Feb 13 2013
%C Row sums of A244966. - _Omar E. Pol_, Jul 19 2014
%H Alois P. Heinz, <a href="/A116686/b116686.txt">Table of n, a(n) for n = 1..1000</a>
%F G.f.: sum[x^i*sum(x^j/(1-x^j),j=1..i-1)/product(1-x^q, q=1..i)], i=1..infinity).
%F a(n) = A006128(n) - A046746(n). - _Vladeta Jovovic_, Feb 24 2006
%e a(5) = 8 because the partitions of 5 are [5], [4,(1)], [3,(2)], [3,(1),(1)], [2,2,(1)], [2,(1),(1),(1)] and [1,1,1,1,1], containing a total of 8 parts that are smaller than the largest part (shown between parentheses).
%p f:=sum(x^i*sum(x^j/(1-x^j),j=1..i-1)/product(1-x^q,q=1..i),i=2..55): fser:=series(f,x=0,50): seq(coeff(fser,x^n),n=1..47);
%t Table[Length[Flatten[Rest[Split[#]]&/@Select[IntegerPartitions[n], #[[1]]> #[[-1]]&]]],{n,50}] (* _Harvey P. Dale_, Jul 26 2016 *)
%Y Cf. A116685, A211870, A211881.
%K nonn
%O 1,4
%A _Emeric Deutsch_, Feb 23 2006
|
