cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-4 of 4 results.

A268148 A double binomial sum involving absolute values.

Original entry on oeis.org

0, 8, 768, 30720, 917504, 23592960, 553648128, 12213813248, 257698037760, 5257039970304, 104453604638720, 2031897488130048, 38843546786070528, 731834939447705600, 13618885273168379904, 250760427251989217280, 4574792530279968800768, 82788987402808467652608
Offset: 0

Views

Author

Richard P. Brent, Jan 27 2016

Keywords

Comments

A fast algorithm follows from Theorem 5 of Brent et al. article.

Crossrefs

Programs

  • PARI
    a(n) = sum(k=-n,n, sum(l=-n,n, binomial(2*n, n+k)*binomial(2*n, n+l)*abs(k^2 - l^2)^2));
    
  • PARI
    concat(0, Vec(8*x*(1+48*x)/(1-16*x)^3 + O(x^20))) \\ Colin Barker, Feb 11 2016

Formula

a(n) = Sum_{k=-n..n} (Sum_{l=-n..n} binomial(2*n, n+k)*binomial(2*n, n+l)*abs(k^2 - l^2)^2).
From Colin Barker, Feb 11 2016: (Start)
a(n) = 2^(4*n-1)*n*(2*n-1).
a(n) = 48*a(n-1)-768*a(n-2)+4096*a(n-3) for n>2.
G.f.: 8*x*(1+48*x) / (1-16*x)^3.
(End)

A268150 A double binomial sum involving absolute values.

Original entry on oeis.org

0, 8, 2496, 177120, 7616000, 255780000, 7410154752, 194544814464, 4760448675840, 110493063252000, 2461297261280000, 53051182041906048, 1113060644163127296, 22833886572836393600, 459594580755139200000, 9100826722891800000000, 177680489488222659379200, 3426237501864596491802400
Offset: 0

Views

Author

Richard P. Brent, Jan 27 2016

Keywords

Comments

A fast algorithm follows from Lemma 1 of Brent et al. article.

Crossrefs

Programs

  • Maple
    A268150 := proc(n)
        add( add( binomial(2*n,n+k)*binomial(2*n,n+l)*abs(k^2-l^2)^3,l=-n..n),k=-n..n) ;
    end proc:
    seq(A268150(n),n=0..10) ; # R. J. Mathar, Feb 27 2023
  • PARI
    a(n) = sum(k=-n,n, sum(l=-n,n, binomial(2*n, n+k)*binomial(2*n, n+l)*abs(k^2 - l^2)^3));

Formula

a(n) = Sum_{k=-n..n} (Sum_{l=-n..n} binomial(2*n, n+k)*binomial(2*n, n+l)*abs(k^2 - l^2)^3).
Conjecture D-finite with recurrence -(4621*n-8921)*(n-1)^2*a(n) +4*(148256*n^3 -1055204*n^2 +2794799*n -2529792)*a(n-1) -64*(32443*n- 32400)*(2*n-3)*(2*n-5)*a(n-2)=0. - R. J. Mathar, Feb 27 2023

A268152 A double binomial sum involving absolute values.

Original entry on oeis.org

0, 8, 8832, 1228800, 79364096, 3562536960, 129276837888, 4079413624832, 116608362086400, 3096396542509056, 77661255048888320, 1861218099127123968, 42980384518787039232, 962362945373732864000, 20993511648589057622016, 447858123072052742062080, 9371462498278516088373248
Offset: 0

Views

Author

Richard P. Brent, Jan 27 2016

Keywords

Comments

A fast algorithm follows from Theorem 5 of Brent et al. article.

Crossrefs

Programs

  • PARI
    a(n) = sum(k=-n,n,sum(l=-n,n, binomial(2*n, n+k)*binomial(2*n, n+l)*abs(k^2 - l^2)^4));
    
  • PARI
    concat(0, Vec(8*x*(1+1024*x+67840*x^2+417792*x^3)/(1-16*x)^5 + O(x^20))) \\ Colin Barker, Feb 11 2016

Formula

a(n) = Sum_{k=-n..n} (Sum_{l=-n..n} binomial(2*n, n+k)*binomial(2*n, n+l)*abs(k^2 - l^2)^4).
From Colin Barker, Feb 11 2016: (Start)
a(n) = 4^(2*n-1)*n*(36*n^3-84*n^2+67*n-17).
a(n) = 80*a(n-1)-2560*a(n-2)+40960*a(n-3)-327680*a(n-4)+1048576*a(n-5) for n>4.
G.f.: 8*x*(1+1024*x+67840*x^2+417792*x^3) / (1-16*x)^5.
(End)

A272913 a(n) = 3*2^(2*n-1)*(n-1)*n^3*binomial(2*n,n)^2, a closed form for a triple binomial sum involving absolute values.

Original entry on oeis.org

0, 0, 6912, 2073600, 361267200, 48771072000, 5665247723520, 595732271726592, 58357447026278400, 5420989989833932800, 483204292920999936000, 41671538221507034480640, 3497929581885972295974912, 287077554068924493987840000, 23115688495680026711162880000
Offset: 0

Views

Author

Bruno Berselli, May 10 2016

Keywords

Comments

See Theorem 6 of Brent et al. article.
a(n) is divisible by 48^2.

Crossrefs

Programs

  • Magma
    [3*2^(2*n-1)*(n-1)*n^3*Binomial(2*n,n)^2: n in [0..20]];
  • Mathematica
    Table[3 2^(2 n - 1) (n - 1) n^3 Binomial[2 n, n]^2, {n, 0, 20}]
  • PARI
    vector(20, n, n--; 3*2^(2*n-1)*(n-1)*n^3*binomial(2*n,n)^2)
    
  • Sage
    [3*2^(2*n-1)*(n-1)*n^3*binomial(2*n, n)^2 for n in range(20)]
    

Formula

a(n) = Sum_{i=-n..n} (Sum_{j=-n..n} (Sum_{k=-n..n} binomial(2*n, n+i)*binomial(2*n, n+j)*binomial(2*n, n+k)*|(i^2-j^2)*(i^2-k^2)*(j^2-k^2)|)).
G.f.: 6912*x^2*(2F1(5/2, 5/2, 2, 64*x) + 100*x*2F1(7/2, 7/2, 3, 64*x)), where 2F1() is the Gauss hypergeometric function.
D-finite with recurrence (n-2)*(n-1)^2*a(n) -16*n*(2*n-1)^2*a(n-1)=0. - R. J. Mathar, Feb 08 2021
Showing 1-4 of 4 results.