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-10 of 12 results. Next

A323540 a(n) = Product_{k=0..n} (k^2 + (n-k)^2).

Original entry on oeis.org

0, 1, 32, 2025, 204800, 30525625, 6307891200, 1727713080625, 606076928000000, 265058191985900625, 141409376995328000000, 90403125002859606705625, 68229510086445571768320000, 60026603304487418050791015625, 60893916244529680380723200000000
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 17 2019

Keywords

Crossrefs

Cf. 2*A000330 and A006331 (with sum instead of product).

Programs

  • Magma
    m:=2; [(&*[k^m + (n-k)^m: k in [0..n]]): n in [0..20]]; // G. C. Greubel, Jan 18 2019
    
  • Mathematica
    Table[Product[k^2+(n-k)^2, {k, 0, n}], {n, 0, 20}]
  • PARI
    m=2; vector(20, n, n--; prod(k=0,n, k^m + (n-k)^m)) \\ G. C. Greubel, Jan 18 2019
    
  • Sage
    m=2; [product(k^m +(n-k)^m for k in (0..n)) for n in (0..20)] # G. C. Greubel, Jan 18 2019

Formula

a(n) ~ exp((Pi-4)*n/2) * n^(2*n+2).

A323541 a(n) = Product_{k=0..n} (k^3 + (n-k)^3).

Original entry on oeis.org

0, 1, 128, 59049, 51380224, 80869140625, 207351578198016, 811509810302822449, 4603095542875667038208, 36344623587588604291790241, 386644580358400000000000000000, 5395532942025804980378907333844441, 96578621213529440721046520779140759552
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 17 2019

Keywords

Crossrefs

Cf. 2*A000537 and A163102 (with sum instead of product).

Programs

  • Magma
    m:=3; [(&*[k^m + (n-k)^m: k in [0..n]]): n in [0..15]]; // G. C. Greubel, Jan 18 2019
    
  • Mathematica
    Table[Product[k^3+(n-k)^3, {k, 0, n}], {n, 0, 15}]
  • PARI
    m=3; vector(15, n, n--; prod(k=0,n, k^m + (n-k)^m)) \\ G. C. Greubel, Jan 18 2019
    
  • Sage
    m=3; [product(k^m +(n-k)^m for k in (0..n)) for n in (0..15)] # G. C. Greubel, Jan 18 2019

Formula

a(n) ~ exp(2*(Pi/(3*sqrt(3))-1)*n) * n^(3*n + 3).

A323542 a(n) = Product_{k=0..n} (k^4 + (n-k)^4).

Original entry on oeis.org

0, 1, 512, 1896129, 14101250048, 242755875390625, 7888809923487203328, 452522453429009743939201, 42521926771106843499966758912, 6212193882217859346149080691430849, 1350441156698962215630405632000000000000, 421551664651621436548685508587919503984205889
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 17 2019

Keywords

Crossrefs

Cf. 2*A000538 and A259108 (with sum instead of product).

Programs

  • Magma
    [(&*[(k^4 + (n-k)^4): k in [0..n]]): n in [0..15]]; // Vincenzo Librandi, Jan 18 2019
    
  • Mathematica
    Table[Product[k^4+(n-k)^4, {k, 0, n}], {n, 0, 15}]
  • PARI
    m=4; vector(15, n, n--; prod(k=0,n, k^m + (n-k)^m)) \\ G. C. Greubel, Jan 18 2019
    
  • Sage
    m=4; [product(k^m +(n-k)^m for k in (0..n)) for n in (0..15)] # G. C. Greubel, Jan 18 2019

Formula

a(n) ~ exp((Pi*(sqrt(2) - 1/2) - 4)*n) * n^(4*n + 4).

A323546 a(n) = Product_{k=0..n} (k^8 + (n-k)^8).

Original entry on oeis.org

0, 1, 131072, 2843192875329, 94689598336441253888, 30456484467910986480712890625, 24450543078081443740165325452474318848, 74458223912158060479139869222818674648092178561, 545831702006800417886454373052629612732034857946832699392
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 17 2019

Keywords

Crossrefs

Cf. 2*A000542 (with sum instead of product).

Programs

  • Mathematica
    Table[Product[k^8+(n-k)^8, {k, 0, n}], {n, 0, 10}]
  • PARI
    m=8; vector(10, n, n--; prod(k=0,n, k^m + (n-k)^m)) \\ G. C. Greubel, Jan 18 2019
    
  • Sage
    m=8; [product(k^m +(n-k)^m for k in (0..n)) for n in (0..10)] # G. C. Greubel, Jan 18 2019

Formula

a(n) ~ exp(((2*sqrt(2+sqrt(2)) - 1/2 - sqrt(2))*Pi - 8)*n) * n^(8*n+8).

A323543 a(n) = Product_{k=0..n} (k^5 + (n-k)^5).

Original entry on oeis.org

0, 1, 2048, 64304361, 3995393327104, 775913238525390625, 320224500476333990608896, 273342392644434762426370643281, 429621172463958849019228299940855808, 1175198860360296464427314161342724729270241, 5278148679274118560000000000000000000000000000000
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 17 2019

Keywords

Crossrefs

Cf. 2*A000539 (with sum instead of product).

Programs

  • Magma
    [(&*[(k^5 + (n-k)^5): k in [0..n]]): n in [0..12]]; // Vincenzo Librandi, Jan 18 2019
    
  • Mathematica
    Table[Product[k^5+(n-k)^5, {k, 0, n}], {n, 0, 12}]
  • PARI
    m=5; vector(12, n, n--; prod(k=0,n, k^m +(n-k)^m)) \\ G. C. Greubel, Jan 18 2019
    
  • Sage
    m=5; [product(k^m +(n-k)^m for k in (0..n)) for n in (0..12)] # G. C. Greubel, Jan 18 2019

Formula

a(n) ~ exp((2*Pi*sqrt(5 - 2/sqrt(5))/5 - 4)*n) * n^(5*n+5).

A323545 a(n) = Product_{k=0..n} (k^7 + (n-k)^7).

Original entry on oeis.org

0, 1, 32768, 79593387129, 328983774635229184, 8781626117710113525390625, 570409595340477623191338982834176, 112244673425189306235795780017831813874289, 49449149324106963036650868175987491957290049732608, 48527312221741371319651099141827554314119977393170380398241
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 17 2019

Keywords

Crossrefs

Cf. 2*A000541 (with sum instead of product).

Programs

  • Magma
    m:=7; [(&*[k^m + (n-k)^m: k in [0..n]]): n in [0..10]]; // G. C. Greubel, Jan 18 2019
    
  • Mathematica
    Table[Product[k^7+(n-k)^7, {k, 0, n}], {n, 0, 10}]
  • PARI
    m=7; vector(10, n, n--; prod(k=0,n, k^m + (n-k)^m)) \\ G. C. Greubel, Jan 18 2019
    
  • Sage
    m=7; [product(k^m +(n-k)^m for k in (0..n)) for n in (0..10)] # G. C. Greubel, Jan 18 2019

Formula

a(n) ~ exp((8*cos((Pi + arctan(2769*sqrt(3)/239))/6)*Pi/sqrt(21)-6)*n) * n^(7*n+7).
Equivalently, a(n) ~ exp((4*Pi*sqrt(2*(13 + 19*sin(Pi/14) - sin(3*Pi/14))/7)/7 - 6)*n) * n^(7*n+7). - Vaclav Kotesovec, Jan 23 2019

A320345 a(n) = Product_{k=0..n} (k^9 + (n-k)^9).

Original entry on oeis.org

0, 1, 524288, 101957062669641, 27265063485978531856384, 106913106903205778598785400390625, 1052153174824916171740710027027385486934016, 50134911460309737788263856880351450247312603708106641, 6079819706045473432785376698707222441479676085024627875693723648
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 22 2019

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Product[k^9+(n-k)^9, {k, 0, n}], {n, 0, 10}]

Formula

a(n) ~ exp((4*Pi*(sqrt(3) + 6*sin(Pi/9))/9 - 8)*n) * n^(9*n+9).

A323659 a(n) = Product_{k=0..n} (k^10 + (n-k)^10).

Original entry on oeis.org

0, 1, 2097152, 3663302861300625, 7851806399838625464320000, 378407193115560358680820465087890625, 45364420795826382440918950445637925790023680000, 34139918620704541898946466431984113559562219610081631390625
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 23 2019

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Product[k^10+(n-k)^10, {k, 0, n}], {n, 0, 10}]

Formula

a(n) ~ exp((Pi*(1/2 + 2*sqrt(5) - 2*sqrt(1 + 2/sqrt(5))) - 10)*n) * n^(10*n+10).

A323660 a(n) = Product_{k=0..n} (k^11 + (n-k)^11).

Original entry on oeis.org

0, 1, 8388608, 131750272043485209, 2261269183430619234140422144, 1346827225363533058227598667144775390625, 1957831179567376680040414825610884198366949236801536, 23448342360429805388842947812883850305932149345203144459397169329
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 23 2019

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Product[k^11+(n-k)^11, {k, 0, n}], {n, 0, 10}]

Formula

a(n) ~ exp((2*Pi*sqrt((1225 + 504*cos(2*Pi/11) + 1512*sin(Pi/22) - 1264*sin(3*Pi/22) + 240*sin(5*Pi/22))/11)/11 - 10)*n) * n^(11*n+11).

A323661 a(n) = Product_{k=0..n} (k^12 + (n-k)^12).

Original entry on oeis.org

0, 1, 33554432, 4740695283514005729, 651240623131512957219821846528, 4811704081770214536604871809482574462890625, 84537031377296019762303015000377965680906643309559021568, 16210797840416801857079558076889164370156937375891800497483902744790721
Offset: 0

Views

Author

Vaclav Kotesovec, Jan 23 2019

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Product[k^12+(n-k)^12, {k, 0, n}], {n, 0, 10}]

Formula

a(n) ~ exp((Pi*(-5/2 + 2*sqrt(6) + sqrt(2*(5-2*sqrt(6))/3)) - 12)*n) * n^(12*n+12).
Showing 1-10 of 12 results. Next