Matt Owen

source code for "files/pe/pe_045.pl"

return to portfolio
  1.  #!/usr/bin/perl
  2.  
  3.  use strict;
  4.  use warnings;
  5.  
  6.  sub is_pent {
  7.   my $n = shift;
  8.   $n = (1 + sqrt(1+24*$n))/6;
  9.   return $n == int $n ? 1 : 0;
  10.  }
  11.  
  12.  
  13.  for (143..100000) {
  14.   $_ = $_*(2*$_-1);
  15.   print $_, ' ' if is_pent $_;
  16.  }