#!/your/perl/here
use strict;
use warnings;
use integer;

$|=1;
my $stop = (shift or 50);
print "2";
my @primes;

TRIAL_PRIME:
for (my $i=3;$i<$stop;$i+=2)
{
  for my $p (@primes)
  {
    next TRIAL_PRIME unless ( $i % $p );
  }
  push @primes, $i;
  print ", $i";
}
print "\n";
exit;