

A174207


Depleted stream of the natural numbers written in base 2: delete even occurrences of digit 0 and odd occurrences of digit 1.


2



0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 0, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 1, 0, 0, 1, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


COMMENTS

The numbers in base 2: 0, 1, 10, 11, 100, 101, 110, 111, 1000.....
The infinite stream of digits: 0110111001011101111000...
Delete even (2nd, 4th, 6th...) occurrences of 0 (replaced by ~):
011~1110~10111~11110~0..
Delete odd (1st, 3rd, 5th,...) occurrences of 1 (replaced by ~):
0~1~~1~0~10~1~~1~1~0~0..
Digits remaining define the sequence: 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 0,....


LINKS

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


MAPLE

nb := 100 ;
L := [0] ;
for n from 1 to nb do
nn := ListTools[Reverse](convert(n, base, 2)) ;
L := [op(L), op(nn)] ;
end do;
Lout := [] ;
ie :=1 ;
io :=1 ;
for i from 1 to nops(L) do
if op(i, L) =0 then
if ie>0 then
if type(ie, 'odd') then
printf("%d, ", 0) ;
end if;
end if;
ie := ie+1 ;
else
if io>0 then
if type(io, 'even') then
printf("%d, ", 1) ;
end if;
end if;
io := io+1 ;
end if;
end do: # R. J. Mathar, Dec 06 2011


CROSSREFS

Cf. A174203, A174204 (base 10), A174205, A174206, A174208A174210
Sequence in context: A073070 A099104 A066829 * A048820 A144101 A127000
Adjacent sequences: A174204 A174205 A174206 * A174208 A174209 A174210


KEYWORD

easy,nonn,base


AUTHOR

Paolo P. Lava and Giorgio Balzarotti, Mar 15 2010


STATUS

approved



