#!/usr/bin/perl

use warnings;
use strict;
use bignum;

my $num = 2017;

for my $i (1 .. 65535) {
    my $d = sprintf("%b", $i);
    if ($d % $num == 0) {
        print "$d\t\t". ($d / $num) . "\n";
    }
}