proc bsn {n} {
    # One special case
    if {$n == 0} {return 1}
    foreach seq [regexp -all -inline 0* [format %llb $n]] {
	if {[string length $seq] & 1} {
	    return 0
	}
    }
    return 1
}

proc bs n {
    set a {}
    for {set i 0} {$i <= $n} {incr i} {
	lappend a [bsn $i]
    }
    return [join $a ", "]
}

puts [bs [lindex $argv 0]]