login

Revision History for A093961

(Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
Decimal expansion of binomial(Pi, e).
(history; published version)
#13 by Joerg Arndt at Thu Dec 30 01:30:06 EST 2021
STATUS

reviewed

approved

#12 by Michel Marcus at Thu Dec 30 01:12:56 EST 2021
STATUS

proposed

reviewed

#11 by G. C. Greubel at Thu Dec 30 01:09:44 EST 2021
STATUS

editing

proposed

#10 by G. C. Greubel at Thu Dec 30 01:09:19 EST 2021
FORMULA

Equals Pi!/(e! * (Pi-e)!).

PROG

(Sage) numerical_approx( gamma(pi+1)/(gamma(e+1)*gamma(pi -e +1)), digits=120) # G. C. Greubel, Dec 29 2021

STATUS

approved

editing

#9 by Vaclav Kotesovec at Sun Dec 20 13:36:04 EST 2015
STATUS

reviewed

approved

#8 by Michel Marcus at Sun Dec 20 02:09:37 EST 2015
STATUS

proposed

reviewed

#7 by Jon E. Schoenfield at Sat Dec 19 23:01:37 EST 2015
STATUS

editing

proposed

#6 by Jon E. Schoenfield at Sat Dec 19 23:01:30 EST 2015
NAME

Decimal expansion of binomial( pi, Pi, e).

LINKS

Harry J. Smith, <a href="/A093961/b093961.txt">Table of n, a(n) for n = 1,...,5000</a>

FORMULA

piPi!/(e! * (piPi-e)!)

EXAMPLE

1.903568065729906338900833721481793534164058581505805576303447688336684... [From _- _Harry J. Smith_, Jun 17 2009]

PROG

(PARI) { allocatemem(932245000); default(realprecision, 5080); e=exp(1); x=gamma(Pi+1)/(gamma(e+1)*gamma(Pi-e+1)); for (n=1, 5000, d=floor(x); x=(x-d)*10; write("b093961.txt", n, " ", d)); } [From _\\ _Harry J. Smith_, Jun 17 2009]

STATUS

approved

editing

#5 by Russ Cox at Fri Mar 30 17:31:00 EDT 2012
AUTHOR

_Robert G. Wilson v (rgwv(AT)rgwv.com), _, Apr 20 2004

Discussion
Fri Mar 30
17:31
OEIS Server: https://oeis.org/edit/global/156
#4 by Russ Cox at Fri Mar 30 17:24:41 EDT 2012
EXAMPLE

1.903568065729906338900833721481793534164058581505805576303447688336684... [From _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Jun 17 2009]

PROG

(PARI) { allocatemem(932245000); default(realprecision, 5080); e=exp(1); x=gamma(Pi+1)/(gamma(e+1)*gamma(Pi-e+1)); for (n=1, 5000, d=floor(x); x=(x-d)*10; write("b093961.txt", n, " ", d)); } [From _Harry J. Smith (hjsmithh(AT)sbcglobal.net), _, Jun 17 2009]

Discussion
Fri Mar 30
17:24
OEIS Server: https://oeis.org/edit/global/133