login
Parity of the decimal digits of log(2).
0

%I #11 Aug 12 2024 02:53:02

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

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

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

%N Parity of the decimal digits of log(2).

%t Join[{0},If[EvenQ[#],0,1]&/@RealDigits[Log[2],10,120][[1]]] (* _Harvey P. Dale_, Nov 27 2021 *)

%o (PARI) \p200 for(n=0,150,print1((1-(-1)^floor(10^n*log(2)))/2,","))

%Y Cf. A002162, A030657.

%K easy,base,nonn

%O 0,1

%A _Benoit Cloitre_, Jun 25 2002