A105167 Interpret the Kolakoski sequence (A000002) as a number in base e, then convert to decimal.

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

Offset

1,1

Links

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

Example

0.77005985653379401429786187745035848461430488386345910544241140422...

Mathematica

a[steps_] := Module[{a = {1, 2, 2}}, Do[a = Append[a, 1 + Mod[(n - 1), 2]], {n, 3, 400}, {i, a[[n]]}]; a]; RealDigits[ FromDigits[{a[1], 0}, E], 10, 105][[1]] (* Robert G. Wilson v, Apr 12 2005 *)

Crossrefs

Sequence in context: A002394 A340030 A274210 * A217227 A217346 A109938

Adjacent sequences: A105164 A105165 A105166 * A105168 A105169 A105170

Keyword

base,nonn

Author

Bryan Jacobs (bryanjj(AT)gmail.com), Apr 10 2005

Extensions

Edited by Robert G. Wilson v, Apr 12 2005

Status

approved