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.

A199203 Decimal expansion of f(0) where f is the functional square root (half-iterate) of exponent, f(f(x))=exp(x).

Original entry on oeis.org

4, 9, 8, 5, 6, 3
Offset: 0

Views

Author

Vladimir Reshetnikov, Nov 03 2011

Keywords

Comments

f(A199203) = 1, where f is the functional square root of exponent.
The listed digits are a conjecture obtained as a common result of several different numeric approximation algorithms, they haven't been rigorously proved to be correct.

Examples

			0.498563...
		

Crossrefs

Programs

  • Mathematica
    n = 23; p[s_, 1] := c[s]; p[0, n_] := c[0]^n; p[s_, n_] := p[s, n] = Expand[Sum[c[k] p[s - k, n - 1], {k, 0, s}]]; d[n_, 0] := Sum[c[k] c[0]^k, {k, 0, n}]; d[n_, i_] := Sum[c[k] p[i, k], {k, 1, n}]; a = c[0] /. FindRoot[Table[d[n, k] k! == 1, {k, 0, n}], Table[{c[k], 2^-k}, {k, 0, n}], WorkingPrecision -> 30]; First[RealDigits[a, 10, 6]]