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-2 of 2 results.

A269576 a(n) = Product_{i=1..n} (4^i - 3^i).

Original entry on oeis.org

1, 7, 259, 45325, 35398825, 119187843775, 1692109818073675, 99792176520894983125, 24195710911432718503470625, 23942309231057283642583777144375, 96180015123706384385790918441966041875
Offset: 1

Views

Author

Bob Selcoe, Mar 02 2016

Keywords

Comments

In general, for sequences of the form a(n) = Product_{i=1..n} j^i-k^i, where j>k>=1 and n>=1: given probability p=(k/j)^n that an outcome will occur at the n-th stage of an infinite process, then r = 1 - a(n)/j^((n^2+n)/2) is the probability that the outcome has occurred at or before the n-th iteration. Here j=4 and k=3, so p=(3/4)^n and r = 1-a(n)/A053763(n+1). The limiting ratio of r is ~ 0.9844550.

Crossrefs

Cf. sequences of the form Product_{i=1..n}(j^i - 1): A005329 (j=2), A027871 (j=3), A027637 (j=4), A027872 (j=5), A027873 (j=6), A027875 (j=7),A027876 (j=8), A027877 (j=9), A027878 (j=10), A027879 (j=11), A027880 (j=12).
Cf. sequences of the form Product_{i=1..n}(j^i - k^1), k>1: A263394 (j=3, k=2), A269661 (j=5, k=4).

Programs

  • Maple
    seq(mul(4^i-3^i,i=1..n),n=0..20); # Robert Israel, Jun 01 2023
  • Mathematica
    Table[Product[4^i - 3^i, {i, n}], {n, 11}] (* Michael De Vlieger, Mar 07 2016 *)
    FoldList[Times,Table[4^n-3^n,{n,20}]] (* Harvey P. Dale, Jul 30 2018 *)
  • PARI
    a(n) = prod(k=1, n, 4^k-3^k); \\ Michel Marcus, Mar 05 2016

Formula

a(n) = Product_{i=1..n} A005061(i).
a(n) ~ c * 2^(n*(n+1)), where c = QPochhammer(3/4) = 0.015545038845451847... . - Vaclav Kotesovec, Oct 10 2016
a(n+3)/a(n+2) - 7 * a(n+2)/a(n+1) + 12 * a(n+1)/a(n) = 0. - Robert Israel, Jun 01 2023

A269661 a(n) = Product_{i=1..n} (5^i - 4^i).

Original entry on oeis.org

1, 9, 549, 202581, 425622681, 4907003889249, 302963327126122509, 98490045052104040328301, 166544794872251942218390753281, 1451779137596368920662880897497387769, 64798450159010700654830227323217753649135349
Offset: 1

Views

Author

Bob Selcoe, Mar 02 2016

Keywords

Crossrefs

Cf. sequences of the form Product_{i=1..n}(j^i - 1): A005329 (j=2), A027871 (j=3), A027637 (j=4), A027872 (j=5), A027873 (j=6), A027875 (j=7), A027876 (j=8), A027877 (j=9), A027878 (j=10), A027879 (j=11), A027880 (j=12).
Cf. sequences of the form Product_{i=1..n}(j^i - k^1), k>1: A263394 (j=3, k=2), A269576 (j=4, k=3).

Programs

  • Magma
    [&*[ 5^k-4^k: k in [1..n] ]: n in [1..16]]; // Vincenzo Librandi, Mar 03 2016
    
  • Mathematica
    Table[Product[5^i - 4^i, {i, n}], {n, 15}] (* Vincenzo Librandi, Mar 03 2016 *)
    Table[5^(Binomial[n + 1, 2]) *QPochhammer[4/5, 4/5, n], {n, 1, 20}] (* G. C. Greubel, Mar 05 2016 *)
    FoldList[Times,Table[5^n-4^n,{n,15}]] (* Harvey P. Dale, Aug 28 2018 *)
  • PARI
    a(n) = prod(k=1, n, 5^k-4^k); \\ Michel Marcus, Mar 05 2016

Formula

a(n) = Product_{i=1..n} A005060(i).
a(n) = 5^(binomial(n+1,2))*(4/5;4/5){n}, where (a;q){n} is the q-Pochhammer symbol. - G. C. Greubel, Mar 05 2016
a(n) ~ c * 5^(n*(n+1)/2), where c = QPochhammer(4/5) = 0.00336800585242312126... . - Vaclav Kotesovec, Oct 10 2016
Showing 1-2 of 2 results.