008/ch1_v2.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl

use strict;
use warnings;

my @mersenne_exps = (2, 3, 5, 7, 13);

foreach my $exp (@mersenne_exps) {
    print 2**($exp - 1) * (2**$exp - 1), "\n";
}