OFFSET
0,5
LINKS
Vaclav Kotesovec, Table of n, a(n) for n = 0..10000 (terms 0..1000 from Alois P. Heinz)
FORMULA
a(n) ~ exp(Pi*sqrt(2*n/3)) / (8*sqrt(3)*n). - Vaclav Kotesovec, Jul 06 2019
EXAMPLE
a(6) = 9: partitions of 6 into an even number of parts are [1,1,1,1,1,1], [2,2,1,1], [3,1,1,1], [3,3], [4,2], [5,1], sum of smallest parts is 1+1+1+3+2+1 = 9.
MAPLE
b:= proc(n, i) option remember;
[`if`(n=i, n, 0), 0]+`if`(i<1, [0, 0], b(n, i-1)+
`if`(n<i, [0, 0], (l-> [l[2], l[1]])(b(n-i, i))))
end:
a:= n-> b(n, n)[2]:
seq(a(n), n=0..60);
MATHEMATICA
b[n_, i_] := b[n, i] = {If[n==i, n, 0], 0} + If[i<1, {0, 0}, b[n, i-1] + If[n<i, {0, 0}, Reverse[b[n-i, i]]]]; a[n_] := b[n, n][[2]]; Table[a[n], {n, 0, 60}] (* Jean-François Alcover, Feb 03 2017, translated from Maple *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Alois P. Heinz, Feb 06 2013
STATUS
approved