From 8204a99f8bde2bc80abd781330a339ee450472d3 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 29 Sep 2016 04:10:29 -0400
Subject: problem 58

---
 058.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 058.pl

diff --git a/058.pl b/058.pl
new file mode 100644
index 0000000..7476faf
--- /dev/null
+++ b/058.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.014;
+
+use Math::Prime::XS qw(is_prime);
+
+my $incr = 0;
+my $val = 1;
+my $total = 1;
+my $primes = 0;
+
+while (1) {
+    $incr += 2;
+
+    for (1..4) {
+        $val += $incr;
+        $total++;
+        $primes++ if is_prime($val);
+    }
+
+    if ($total / $primes > 10) {
+        say $incr + 1;
+        exit;
+    }
+}
-- 
cgit v1.2.3