Smarandache prime-digital sequence: Difference between revisions
Smarandache prime-digital sequence (view source)
Revision as of 09:02, 27 February 2021
, 3 years agoForth - simplified code
m (Forth - minor edits) |
m (Forth - simplified code) |
||
Line 552:
10 / recurse 10 * 2 + ;
:
begin
r@ 0 >▼
next_prime_digit_number
dup is_prime?
drop rdrop cr ;▼
: spds_print ( n -- )
spds_next
loop
: spds_nth ( n -- n )
0 swap 0 do spds_next loop ;
▲ dup is_prime? if r> 1- >r then
." First 25 SPDS primes:" cr
|