%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