#!/usr/bin/env perl

use strict;
use warnings;
use Data::Dumper;

my $S=210;  #素因数が4つになる最初の数値
my $N=1000000;
my @ans=();

foreach my $n ($S..$N)
{
  my %pfactors = get_pfactors($n);
  my $num = keys %pfactors;
  if($num == 4)
  {
    #print "[$n] $num\n";
    push(@ans, $n);
    if (scalar(@ans)==4)
    {
      print "Ans: $ans[0]\n";
      last;
    }
  }
  else
  {
    @ans=();  #リストクリア
  }
}
exit;

#素因数分解
sub get_pfactors
{
  my $src = shift;
  my %arr;

  foreach (my $div=2; $div<=($src/2); $div++)
  {
    if($src % $div == 0)
    {
      $arr{$div}++;
      $src /= $div;
      redo;
    }
  }
  $arr{$src}++ if($src>1);
  return(%arr);
}

#Ans: 134043