OFFSET
0,2
FORMULA
a(n) = Sum_{k=0..n} (Sum_{i=k..n} A000108(i))^2.
MATHEMATICA
Table[Sum[Sum[Binomial[2i, i]/(i+1), {i, k, n}]^2, {k, 0, n}], {n, 0, 40}]
PROG
(Maxima) makelist(sum(sum(binomial(2*i, i)/(i+1), i, k, n)^2, k, 0, n), n, 0, 20);
CROSSREFS
KEYWORD
nonn
AUTHOR
Emanuele Munarini, Apr 06 2012
STATUS
approved