A178824 a(n) = Sum_{k=0..n} binomial(n,k)^4/(n+1).

1, 1, 6, 41, 362, 3542, 37692, 424377, 4990722, 60704138, 758665388, 9694652838, 126203947828, 1668947978908, 22370427181624, 303383342784729, 4156846359584754, 57473870722327874, 801081711581734764

Offset

0,3

Links

G. C. Greubel, Table of n, a(n) for n = 0..830

Formula

a(n) = A005260(n)/(n+1).

Maple

a:=n->add(binomial(n, k)^4/(n+1), k=0..n): seq(a(n), n=0..20); # Muniru A Asiru, Jan 22 2019

Mathematica

Table[Sum[Binomial[n, k]^4/(n+1), {k, 0, n}], {n, 0, 20}] (* G. C. Greubel, Jan 22 2019 *)

Prog

(PARI) {a(n)=sum(k=0, n, binomial(n, k)^4)/(n+1)}
(Magma) [(&+[Binomial(n, k)^4/(n+1): k in [0..n]]): n in [0..20]]; // G. C. Greubel, Jan 22 2019
(Sage) [sum(binomial(n, k)^4/(n+1) for k in (0..n)) for n in (0..20)] # G. C. Greubel, Jan 22 2019
(GAP) List([0..20], n-> Sum([0..n], k-> Binomial(n, k)^4/(n+1) )); # G. C. Greubel, Jan 22 2019

Crossrefs

Cf. A005260.

Sequence in context: A184140 A317410 A094869 * A006198 A167588 A323573

Adjacent sequences: A178821 A178822 A178823 * A178825 A178826 A178827

Keyword

nonn

Author

Paul D. Hanna, Dec 27 2010

Status

approved