Smarandache prime-digital sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 612: / Line 612: @@
 : spds_print ( n -- )
 swap 0 do
-    spds_next
+    spds_next dup .
-    dup is_prime? if dup . then
   loop
   drop cr ;