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

Author

Reinhard Zumkeller, Mar 04 2010

Keywords

• nonn

Comments

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

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

Crossrefs

Cf. A001477, A079944, A173922.

Programs

Mathematica

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

Extensions

Sequence definition changed for clarity (see A173922).