|
%I #8 Sep 19 2018 16:08:24
%S 1,2,6,15,84,55,100,770,1680,1323,141120,8470,27720,3474900,4228224,
%T 3468465,19459440,131030900,109156320,1042578108,8779605120,
%U 1514663280,41736380400,175685635125,24960905112,1254125149200,4476730258000,10664476594200,73326164511600
%N Denominator of the average of the averages of all integer partitions of n.
%H Andrew Howroyd, <a href="/A319336/b319336.txt">Table of n, a(n) for n = 1..500</a>
%e The sequence of average averages begins: 1, 3/2, 11/6, 31/15, 187/84, 131/55, 247/100, 1993/770, 4463/1680, 3635/1323.
%t Table[Denominator[Mean[Mean/@IntegerPartitions[n]]],{n,20}]
%o (PARI) seq(n)={[denominator(poldegree(p)*subst(intformal(p/y)/p, y, 1)) | p <- Vec(-1+1/prod(k=1, n, 1 - x^k*y + O(x*x^n)))]} \\ _Andrew Howroyd_, Sep 19 2018
%Y Numerators are in A319335.
%Y Cf. A056239, A067538, A237984, A296150, A316313, A316314, A316440.
%K nonn,frac
%O 1,2
%A _Gus Wiseman_, Sep 17 2018
|
