A173922 In the sequence of nonnegative integers substitute all n by 2^floor(n/4) occurrences of (n mod 2).

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

Offset

0,1

Links

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

Formula

a(n) = A173920(n+4,4).

a(n) = A000035(A002265(A030101(n+4))).

Mathematica

Flatten[Table[ConstantArray[Mod[n, 2], 2^Floor[n/4]], {n, 0, 20}]] (* Paolo Xausa, Apr 03 2024 *)

Crossrefs

Cf. A001477, A079944, A173923, A200675.

Sequence in context: A082848 A078588 A175992 * A213676 A309752 A209355

Adjacent sequences: A173919 A173920 A173921 * A173923 A173924 A173925

Keyword

nonn

Author

Reinhard Zumkeller, Mar 04 2010

Extensions

Sequence definition changed for clarity.

Status

approved