|
%I #17 May 19 2018 18:00:16
%S 2,8,24,56,120,240,448,800,1386,2320,3784,6048,9464,14560,22080,32992,
%T 48688,71064,102600,146720,207984,292336,407744,564672,776650,1061424,
%U 1442016,1947904,2617192,3498720,4654464,6163584,8126448,10669472,13952400,18175896
%N Sum of all parts of all overpartitions of n.
%C The equivalent sequence for partitions is A066186.
%H Alois P. Heinz, <a href="/A235793/b235793.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = n*A015128(n).
%F a(n) ~ exp(Pi*sqrt(n)) / 8. - _Vaclav Kotesovec_, May 19 2018
%p b:= proc(n, i) option remember; `if`(n=0, [1, 0],
%p `if`(i<1, [0$2], b(n, i-1)+add((l-> l+[0, l[1]*i*j])
%p (2*b(n-i*j, i-1)), j=1..n/i)))
%p end:
%p a:= n-> b(n$2)[2]:
%p seq(a(n), n=1..40); # _Alois P. Heinz_, Jan 21 2014
%t Table[n*Sum[PartitionsP[n-k]*PartitionsQ[k], {k, 0, n}], {n, 1, 40}] (* _Jean-François Alcover_, Oct 20 2016, after _Vaclav Kotesovec_ *)
%Y Cf. A015128, A066186, A235790, A235792, A235797, A235798, A236000.
%K nonn
%O 1,1
%A _Omar E. Pol_, Jan 18 2014
|
