A182018 Row square-sums of triangle A210658.

1, 5, 29, 219, 2011, 20911, 235543, 2801821, 34667941, 441977129, 5768828529, 76743400197, 1037119411309, 14202556969109, 196703352545189, 2751033268619879, 38804220883714919, 551466071408325299, 7889476725800450699, 113542652361590443679

Offset

0,2

Links

Table of n, a(n) for n=0..19.

Formula

a(n) = sum(sum(binomial(2i,i)/(i+1),i=k..n))^2, k=0..n).

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

Cf. A210658.

Sequence in context: A057623 A356336 A352294 * A309260 A087662 A113012

Adjacent sequences: A182015 A182016 A182017 * A182019 A182020 A182021

Keyword

nonn

Author

Emanuele Munarini, Apr 06 2012

Status

approved