OFFSET
0,1
MATHEMATICA
Join[{0}, If[EvenQ[#], 0, 1]&/@RealDigits[Log[2], 10, 120][[1]]] (* Harvey P. Dale, Nov 27 2021 *)
PROG
(PARI) \p200 for(n=0, 150, print1((1-(-1)^floor(10^n*log(2)))/2, ", "))
CROSSREFS
KEYWORD
easy,base,nonn
AUTHOR
Benoit Cloitre, Jun 25 2002
STATUS
approved