A030315 Write n in base 2, complement each digit (d -> 1-d) and append the complemented digits to the sequence.

1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 1, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0

Offset: 0

Author

Clark Kimberling

Keywords

• nonn
• base

Examples

			To get the initial terms:
  0 -> 1
  1 -> 0
  2 = 10 -> 0, 1
  3 = 11 -> 0, 0
  4 = 100 -> 0, 0, 1
  5 = 101 -> 0, 1, 0,
  ...
and concatenating 1, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0,  ... gives the start of the sequence. - _N. J. A. Sloane_, Jan 30 2023
		

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000
• Eric W. Weisstein, Champernowne Constant.

Crossrefs

Cf. A030190, A180433. [Jonathan Vos Post, Sep 05 2010]

Programs

Mathematica

Table[IntegerDigits[n,2]/.{1->0,0->1},{n,0,30}]//Flatten (* Harvey P. Dale, Jan 30 2023 *)

Formula

a(n) = 1 - A030190(n). - Amiram Eldar, May 22 2023

Extensions

a(0)=1 added by Jonathan Vos Post, Sep 05 2010

Edited by N. J. A. Sloane, Jan 30 2023