Jump to content

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,467

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.