A167501 Sequence of bits in A167500 (= list of nonzero bits in this sequence, when written in binary).

1, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 1, 0, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0

Offset

1,1

Comments

Sequence A167500 starts 1,2,4,7,... = 1,10,100,111,.... when written in binary (A167502). This sequence lists the bits one by one, MSB first: 1,1,0,1,0,0,1,1,1,...; by definition A167500 lists the nonzero terms of this function, and reciprocally this sequence is the characteristic function of A167500.

Links

Table of n, a(n) for n=1..105.

Prog

(PARI) a=b=[]; for(n=1, 30, #b >= n & for( i=a[n-1]+1, #b, b[i] & (a=concat(a, i)) & break); #a<n & a=concat(a, #b+1); b=concat(b, binary( a[n] ))); b

Crossrefs

Cf. A167500 (lists nonzero terms in this sequence), A167502.

Sequence in context: A275661 A266716 A190242 * A285533 A185175 A379485

Adjacent sequences: A167498 A167499 A167500 * A167502 A167503 A167504

Keyword

base,nonn

Author

M. F. Hasler, Nov 05 2009

Status

approved