Codes: part 10

#!/usr/bin/perl
use bignum;
for1:for(my $i = 2;$i <= 10;$i ++){
  for2:for(my $j = 2;$j <= $i /2 ;$j ++){
    unless($i % $j){
      next for1;
    }
  }
for($a = 1; $a <=4; $a++){
       $l= 3 + 3*$i**$a;
  print “$l = 3 + 3*$i^$a\n”;
}}

Advertisements