#!/usr/bin/perl -w

use strict;
use constant LIMIT => 10000;

my @sieve;
for(my $i = 3; $i < LIMIT; $i += 2)
{
   $sieve[$i] = 1;
}
for(my $i = 3; $i < LIMIT; $i += 2)
{
   if( $sieve[$i] )
   {
      printf '0x%04x  %d'."\n", $i, $i;
      for(my $j = $i; $j < LIMIT; $j += $i)
      {
         $sieve[$j] = 0;
      }
   }
}