#!/usr/local/bin/perl
$limit = shift or die "no limit parm";
$ratio = shift or die "no ratio parm";

# print "limit = $limit\n";

@primes = (2);

for ( $i = 3 ; $i <= $limit ; $i++ )
{
  $is_prime = 1; 
  for ( $j = 0; $j <= $#primes ; $j++ )
  {
    $is_prime = 0 if ($i / $primes[$j]) == (int($i / $primes[$j]));
  }
  if ($is_prime == 1)
  {
#    print "$i\n";
    push @primes, $i;
  }
}

# unshift @primes, 1;

print "1\n";

$prev = 1;

for ($pi = 1 ; $pi <= $#primes ; $pi++)
{
  if ( $primes[$pi] > ( $prev * $ratio ) )
  {
    print $primes[$pi - 1] , "\n";
    $prev = $primes[$pi - 1];
  }
}