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.

A244994 Decimal expansion of p_4(2), the maximum radial probability density of a 4-step uniform random walk.

Original entry on oeis.org

4, 9, 4, 2, 3, 3, 7, 0, 9, 8, 8, 7, 3, 3, 2, 6, 6, 9, 1, 7, 8, 1, 8, 9, 5, 4, 4, 6, 6, 6, 4, 2, 3, 4, 2, 9, 5, 7, 4, 9, 9, 7, 0, 3, 3, 7, 3, 3, 7, 8, 2, 9, 2, 0, 3, 5, 1, 6, 1, 6, 4, 9, 7, 0, 6, 3, 5, 6, 3, 7, 5, 4, 3, 0, 4, 2, 4, 7, 3, 6, 0, 6, 4, 7, 5, 6, 2, 3, 3, 8, 4, 3, 7, 7, 0, 7, 1, 7, 8, 2, 9, 4, 4, 2, 7
Offset: 0

Views

Author

Jean-François Alcover, Jul 09 2014

Keywords

Examples

			0.4942337098873326691781895446664234295749970337337829203516164970635637543...
		

Crossrefs

Cf. A244995 (p_4(1)).

Programs

  • Mathematica
    RealDigits[2^(7/3)*Pi/(3*Sqrt[3]*Gamma[2/3]^6), 10, 105] // First
  • PARI
    (2^(7/3)*Pi)/(3*sqrt(3)*gamma(2/3)^6) \\ Michel Marcus, Jun 17 2015

Formula

p_4(x) = (2*sqrt(16-x^2)*Re(3F2(1/2, 1/2, 1/2; 5/6, 7/6; (16-x^2)^3/(108*x^4))))/(Pi^2*x) where 3F2 is the hypergeometric function.
p_4(2) = (2^(7/3)*Pi)/(3*sqrt(3)*gamma(2/3)^6).
p_4(2) = (2*sqrt(3)*gamma(7/6))/(Pi*gamma(2/3)^2*gamma(5/6)).

A247447 Decimal expansion of r_(5,1), a constant which is the residue at -4 of the distribution function of the distance travelled in a 5-step uniform random walk.

Original entry on oeis.org

0, 0, 6, 6, 1, 6, 7, 3, 0, 2, 5, 9, 4, 3, 0, 0, 8, 1, 7, 1, 4, 0, 5, 7, 7, 3, 8, 0, 0, 0, 7, 4, 9, 6, 5, 6, 2, 4, 9, 5, 5, 1, 0, 3, 2, 7, 5, 2, 4, 8, 3, 3, 0, 3, 9, 9, 7, 1, 5, 8, 3, 6, 3, 0, 8, 3, 2, 7, 5, 3, 4, 7, 2, 7, 1, 4, 0, 9, 2, 1, 2, 8, 0, 8, 2, 8, 0, 7, 7, 9, 0, 7, 6, 6, 9, 2, 9, 0, 4, 9, 1, 6, 4
Offset: 0

Views

Author

Jean-François Alcover, Sep 17 2014

Keywords

Examples

			0.0066167302594300817140577380007496562495510327524833...
		

Crossrefs

Programs

  • Mathematica
    r[5, 0] = (2*Sqrt[15]*Re[HypergeometricPFQ[{1/2, 1/2, 1/2}, {5/6, 7/6}, 125/4]])/Pi^2; r[5, 1] = 13/225*r[5, 0] - 2/(5*Pi^4*r[5, 0]); Join[{0, 0}, RealDigits[r[5, 1], 10, 101] // First]

Formula

r_(5,1) = 13/225*r_(5,0) - 2/(5*Pi^4*r_(5,0)), where r_(5,0) is A244995 (residue at -2).
r_(5,1) = 13/(1800*sqrt(5))*Gamma(1/15)*Gamma(2/15)*Gamma(4/15)*Gamma(8/15)/Pi^4 - 1/sqrt(5)*Gamma(7/15)*Gamma(11/15)*Gamma(13/15)*Gamma(14/15)/Pi^4.
Showing 1-2 of 2 results.