login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A178824 a(n) = Sum_{k=0..n} binomial(n,k)^4/(n+1). 1
1, 1, 6, 41, 362, 3542, 37692, 424377, 4990722, 60704138, 758665388, 9694652838, 126203947828, 1668947978908, 22370427181624, 303383342784729, 4156846359584754, 57473870722327874, 801081711581734764 (list; graph; refs; listen; history; text; internal format)
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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 22 17:25 EDT 2019. Contains 321422 sequences. (Running on oeis4.)