1: 33
2: 45
3: 57
4: 69
5: 81
...

##</code><code>##

#!/usr/bin/env perl

use warnings;
use strict;
my $a=0x15;
for (my $i = 1; $i <= 100; $i++)
{
   $a+=0x0C;
   print "$i: ";
   printf "0x%x\n", $a;
}

##</code><code>##

1: 0x21
2: 0x2d
3: 0x39
4: 0x45
5: 0x51
...