The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A334851 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A334851

Decimal expansion of the number x such that 1 = Integral_{0..x} Log(gamma(t)) dt.
(history; published version)

#7 by Jon E. Schoenfield at Sun Feb 06 14:42:55 EST 2022

STATUS

proposed

approved

#6 by Jon E. Schoenfield at Sun Feb 06 14:08:02 EST 2022

STATUS

editing

proposed

#5 by Jon E. Schoenfield at Sun Feb 06 14:08:00 EST 2022

MATHEMATICA

x /. FindRoot[x Log[Gamma[x]] - x LogGamma[x] + PolyGamma[-2, x] - 1, {x, 3}, WorkingPrecision -> 120] (* Peter J. C. Moses, June Jun 27 2020 *)

STATUS

approved

editing

#4 by Susanna Cuyler at Wed Jul 01 22:31:04 EDT 2020

STATUS

proposed

approved

#3 by Clark Kimberling at Wed Jul 01 15:02:02 EDT 2020

STATUS

editing

proposed

#2 by Clark Kimberling at Sat Jun 27 19:39:31 EDT 2020

NAME

allocated for Clark KimberlingDecimal expansion of the number x such that 1 = Integral_{0..x} Log(gamma(t)) dt.

DATA

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

OFFSET

1,1

EXAMPLE

x = 2.75501685669048486879290550748147369075005975463704644144...

MATHEMATICA

x /. FindRoot[x Log[Gamma[x]] - x LogGamma[x] + PolyGamma[-2, x] - 1, {x, 3}, WorkingPrecision -> 120] (* Peter J. C. Moses, June 27 2020 *)

CROSSREFS

Cf. A075700.

KEYWORD

allocated

nonn,cons

AUTHOR

Clark Kimberling, Jun 27 2020

STATUS

approved

editing

#1 by Clark Kimberling at Wed May 13 14:49:49 EDT 2020

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved