A245261 Decimal expansion of the maximum of Planck's radiation function.

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

Offset

1,1

Links

Table of n, a(n) for n=1..105.

Eric Weisstein's MathWorld, Planck's Radiation Function

Formula

(15*(W(-(5/e^5)) + 5)^5)/((-1 + exp(W(-(5/e^5)) + 5))*Pi^4), where W is the LambertW function (also known as ProductLog).

Example

3.2648034339755571402288131198557638278982761871385361958956956...

Mathematica

f[x_] := 15/(Pi^4*x^5*(Exp[1/x] - 1)); xmax = 1/(ProductLog[-5*Exp[-5]] + 5); RealDigits[f[xmax], 10, 105] // First

Crossrefs

Cf. A133838, A133839, A133840.

Sequence in context: A093050 A289194 A321508 * A054089 A365312 A365080

Adjacent sequences: A245258 A245259 A245260 * A245262 A245263 A245264

Keyword

nonn,cons

Author

Jean-François Alcover, Jul 15 2014

Status

approved