|
%I #8 Jul 30 2015 23:15:25
%S 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,
%T 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,
%U 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
%N Interpret the Kolakoski sequence (A000002) as a number in base e, then convert to decimal.
%e 0.77005985653379401429786187745035848461430488386345910544241140422...
%t 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 *)
%K base,nonn
%O 1,1
%A Bryan Jacobs (bryanjj(AT)gmail.com), Apr 10 2005
%E Edited by _Robert G. Wilson v_, Apr 12 2005
|
