#!/usr/bin/perl
print"@{[grep{(1x$_)!~/^(11+?)\1+$/}2..shift||1e3]}\n";