#!/usr/bin/perl -w

use strict;

my $MAX_NUMBER = 1000;
my @primes = ();

print "Best primes: ";

CANDIDATE:
for (my $num = 2; $num <= $MAX_NUMBER; $num++) {
	for my $prime (@primes) {
		my $quotient = int($num / $prime);
		next CANDIDATE if $prime * $quotient == $num;
		last if $prime >= $quotient;
	}
	push @primes, $num;
	print "$num ";
}

print "\n";