Smarandache prime-digital sequence: Difference between revisions

m
→‎Naive: renamed word for clarity
m (→‎Optimised: tidy up)
m (→‎Naive: renamed word for clarity)
Line 1,625:
iff [ dip not ] done
dup 0 = until ]
drop ] is primedigitsdigitsprime ( n --> b )
 
[ temp put [] 0
[ dup primedigitsdigitsprime if
[ dup isprime if
[ dup dip join ] ]
1,462

edits