A120026 Decimal expansion of the value of Minkowski's question mark function at the base of the natural logarithm.

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

Offset

1,1

Links

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

Index entries for sequences related to Minkowski's question mark function

Formula

2 + 2(Sum[(-1)^(k)/2^(1/9*k^2 + k - 1), {k, 3, n, 3}] + Sum[(-1)^(k)/2^((1/9)(k + 8)(k - 1)), {k, 4, n, 3}] + Sum[(-1)^(k)/2^((1/9)(k^2 + 5*k - 5)), {k, 2, n, 3}])

Example

2.8154182545813457028113360074114866042343093040646539506191797214836975900055657...

Mathematica

RealDigits[(cf = ContinuedFraction[E, 150(*arbitrary precision*)]; IntegerPart[E] + Sum[(-1)^(k)/2^(Sum[cf[[i]], {i, 2, k}] - 1), {k, 2, Length[cf]}]), 10, 100]

Crossrefs

Cf. A120025.

Sequence in context: A343918 A156029 A333476 * A329280 A109089 A200479

Adjacent sequences: A120023 A120024 A120025 * A120027 A120028 A120029

Keyword

cons,nonn

Author

Joseph Biberstine (jrbibers(AT)indiana.edu), Jun 04 2006

Status

approved