A072126 Parity of the decimal digits of log(2).

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, 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, 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

Offset

0,1

Links

Table of n, a(n) for n=0..104.

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

Cf. A030657.

Sequence in context: A011657 A354896 A359606 * A287125 A339051 A234045

Adjacent sequences: A072123 A072124 A072125 * A072127 A072128 A072129

Keyword

easy,base,nonn

Author

Benoit Cloitre, Jun 25 2002

Status

approved