From 170178579a93dbc8deaee328fefdb2f02c57df4f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 29 Sep 2016 04:37:57 -0400
Subject: problem 63

---
 063.pl | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 063.pl

diff --git a/063.pl b/063.pl
new file mode 100644
index 0000000..0a0f6a1
--- /dev/null
+++ b/063.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use 5.014;
+
+my $count = 0;
+my $exp = 1;
+while (1) {
+    my $seen;
+    for my $base (1..9) {
+        if ($exp * (log($base) / log(10)) >= $exp - 1) {
+            $count++;
+            $seen = 1;
+        }
+    }
+    last unless $seen;
+    $exp++;
+}
+
+say $count;
-- 
cgit v1.2.3