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

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

Offset

0,1

Comments

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

a(n) = A000035(A132292(A030101(n+8)+1)).

Links

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

Mathematica

Table[PadRight[{}, 2^Floor[n/8], Mod[n, 2]], {n, 0, 30}]//Flatten (* Harvey P. Dale, Aug 07 2021 *)

Crossrefs

Cf. A001477, A079944, A173922.

Sequence in context: A376451 A285685 A287773 * A260393 A360113 A361123

Adjacent sequences: A173920 A173921 A173922 * A173924 A173925 A173926

Keyword

nonn

Author

Reinhard Zumkeller, Mar 04 2010

Extensions

Sequence definition changed for clarity (see A173922).

Status

approved