Smarandache prime-digital sequence: Difference between revisions

m
Forth - minor edit
m (Forth - minor edit)
Line 612:
: spds_print ( n -- )
0 swap 0 do
spds_next dup .
dup is_prime? if dup . then
loop
drop cr ;
1,777

edits