diff --git a/member-print.scm b/member-print.scm
index 0b47574..9cca785 100644
--- a/member-print.scm
+++ b/member-print.scm
@@ -46,7 +46,8 @@
 	 table
 	 listing
 	 ansi
-	 period)
+	 period
+	 primes)
 
  ;; Prints human-readable information
  (define (print-member-info mr)
@@ -75,7 +76,11 @@
  ;; Prints nicely formatted table
  (define (print-member-table mr)
    (let* ((aliases (dict-ref mr 'symlinks))
-	  (head (list (list "ID:" (member-id mr))
+	  (mid (member-id mr))
+	  (head (list (if (is-4digit-prime? mid)
+			  (list "ID:" mid)
+			  (list (ansi-string #:red #:bold "ID:")
+				(ansi-string #:red #:bold (number->string mid) " (not prime)")))
 		      (list (sprintf "Alias~A:" (if (> (length aliases) 1) "es" ""))
 			    (string-intersperse (map symbol->string aliases) ", "))
 		      (if (member-suspended? mr)