#!/usr/bin/env perl
use warnings;
use strict;
use bigint;

my @f = (2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59);
my @d = divisors(1922760350154212639070,@f);
print "$_\n" for @d;