Smarandache prime-digital sequence: Difference between revisions
Smarandache prime-digital sequence (view source)
Revision as of 08:41, 27 February 2021
, 3 years agoForth - minor edits
m (Forth - simplified code) |
m (Forth - minor edits) |
||
Line 553:
: spds_print ( n -- )
>r 0
begin
while
next_prime_digit_number
dup is_prime? if dup .
repeat
: spds_nth ( n -- n )
>r 0
begin
while
next_prime_digit_number
dup is_prime? if
repeat
." First 25 SPDS primes:" cr
Line 579:
." 1000th SPDS prime: "
1000 spds_nth . cr
bye</lang>
{{out}}
| |||