%I #7 Aug 07 2021 12:00:49
%S 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,
%T 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,
%U 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
%N In the sequence of nonnegative integers substitute all n by 2^floor(n/8) occurrences of (n mod 2).
%C a(n) = A173920(n+8,8).
%C a(n) = A000035(A132292(A030101(n+8)+1)).
%t Table[PadRight[{},2^Floor[n/8],Mod[n,2]],{n,0,30}]//Flatten (* _Harvey P. Dale_, Aug 07 2021 *)
%Y Cf. A001477, A079944, A173922.
%K nonn
%O 0,1
%A _Reinhard Zumkeller_, Mar 04 2010
%E Sequence definition changed for clarity (see A173922).