008/ch1.pl


1
2
3
4
5
6
7
8
9
10

#!/usr/bin/env perl

use strict;
use warnings;

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

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