$k=<>;print grep(5968/2**($k/$_)&$k%$_<1,2,3,5,7,11,13)/36