A068433 - OEIS

%I #29 Dec 14 2017 02:35:09

%S 1,0,0,0,1,1,0,0,1,0,0,1,1,1,1,1,0,1,0,1,0,0,1,1,1,1,0,1,0,1,0,1,0,1,

%T 1,0,1,0,0,0,0,0,0,1,1,0,0,0,0,1,0,1,0,1,0,0,1,0,1,1,1,0,1,1,0,1,0,1,

%U 0,0,1,0,0,0,0,0,1,1,0,0,1,1,0,0,0,1,1,0,1,0,1,0,1,0,1,0,1,0,0,0,0,0,1,0,1

%N Expansion of log(3) in base 2.

%H G. C. Greubel, <a href="/A068433/b068433.txt">Table of n, a(n) for n = 1..10000</a>

%e The decimal expansion is log(3) = 1.098612288668109...

%t RealDigits[Log[3], 2, 108][[1]] (* _Alonso del Arte_, Feb 17 2013 *)

%o (JavaScript)

%o function binaryExp(n) {

%o x = new Array();

%o for (i = 0; i < 50; i++) if (n - Math.pow(2, 1 - i) >= 0) {n -= Math.pow(2, 1 - i); x[i] = 1;} else x[i] = 0;

%o return x;

%o }

%o document.write(Math.log(3) + "<br>");

%o document.write(binaryExp(Math.log(3))); // _Jon Perry_, Nov 18 2012

%o (PARI) concat(binary(log(3))) \\ _Michel Marcus_, Dec 14 2017

%Y Cf. A002391.

%K base,cons,easy,nonn

%O 1,1

%A _Benoit Cloitre_, Mar 09 2002