Data update

Task/Chernicks-Carmichael-numbers/REXX/chernicks-carmichael-numbers.rexx

@@ -1,6 +1,7 @@
-include Settings
+-- 23 Aug 2025
+include Setting
 
-say 'CHERNICKS'' CARMICHAEL NUMBERS - 3 Mar 2025'
+say 'CHERNICKS'' CARMICHAEL NUMBERS'
 say version
 say
 numeric digits 80
@@ -16,15 +17,15 @@ do n = 3 to 9
    k = 0
    do x = 1
       k = k+1; m = mp*k; f.1 = 6*m+1
-      if \ IsPrime(f.1) then
+      if \ Prime(f.1) then
          iterate x
       f.2 = 12*m+1
-      if \ IsPrime(f.2) then
+      if \ Prime(f.2) then
          iterate x
       f = 2
       do i = 1 to n-2
          f = f+1; f.f = 2**i*9*m+1
-         if \ IsPrime(f.f) then
+         if \ Prime(f.f) then
             iterate x
       end
       a = 1
@@ -40,6 +41,4 @@ say Format(Time('e'),3,3) 'seconds'
 say
 exit
 
-include Numbers
-include Functions
-include Abend
+include Math