1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-148/abigail/awk/ch-1.awk b/challenge-148/abigail/awk/ch-1.awk
new file mode 100644
index 0000000000..547cd72064
--- /dev/null
+++ b/challenge-148/abigail/awk/ch-1.awk
@@ -0,0 +1,19 @@
+#!/usr/bin/awk
+
+#
+# See https://theweeklychallenge.org/blog/perl-weekly-challenge-148
+#
+
+#
+# Run as: awk -f ch-1.awk
+#
+
+BEGIN {
+    for (i = 0; i <= 100; i ++) {
+        if (! match (i, /^0$|[1789]|^2.|[35]$/)) {
+            printf ("%d ", i)
+        }
+    }
+    printf ("\n")
+}
+