diff --git a/49/main.ua b/49/main.ua
new file mode 100644
index 0000000..90f2f95
--- /dev/null
+++ b/49/main.ua
@@ -0,0 +1,15 @@
+# project euler 49
+
+# pervasive primality
+IsPrime ← =1/+≠1°/×
+
+S ← (
+  ⍜-⇡1000 10000
+  +¤×⇡3:
+  ▽⊸(/↧IsPrime⍉)
+  ▽⊸(↧⊃(
+      ≡/↧≡₁(=4⧻◴)
+    | ≡(=4⧻◴/⊂)
+    )⊥10)
+)
+∩⌞▽⊸(⊸≡◇(>0⧻)⍚S) +1⇡4500