Smarandache prime-digital sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,625: / Line 1,625: @@
       iff [ dip not ] done
       dup 0 = until ]
-    drop ]                           is primedigits ( n --> b )
+    drop ]                           is digitsprime ( n --> b )
   [ temp put [] 0
-    [ dup primedigits if
+    [ dup digitsprime if
         [ dup isprime if
             [ dup dip join ] ]