A173922 - OEIS

%I #14 Apr 04 2024 07:54:05

%S 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,

%T 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,

%U 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

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

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

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

%t Flatten[Table[ConstantArray[Mod[n, 2], 2^Floor[n/4]], {n, 0, 20}]] (* _Paolo Xausa_, Apr 03 2024 *)

%Y Cf. A001477, A079944, A173923, A200675.

%K nonn

%O 0,1

%A _Reinhard Zumkeller_, Mar 04 2010

%E Sequence definition changed for clarity.