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

Author

Reinhard Zumkeller, Mar 04 2010

Keywords

• nonn

Crossrefs

Cf. A001477, A079944, A173923, A200675.

Programs

Mathematica

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

Formula

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

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

Extensions

Sequence definition changed for clarity.