23 lines
418 B
Text
23 lines
418 B
Text
[ 0 swap
|
|
[ dip 1+
|
|
10 /
|
|
dup 0 = until ]
|
|
drop ] is digits ( n --> n )
|
|
|
|
[ stack ] is primorials ( --> s )
|
|
|
|
1299710 eratosthenes
|
|
|
|
' [ 1 ]
|
|
1299710 times
|
|
[ i^ isprime if
|
|
[ i^ over -1 peek * join ] ]
|
|
primorials put
|
|
|
|
primorials share 10 split drop echo
|
|
cr
|
|
[] 6 times
|
|
[ primorials share
|
|
10 i^ ** peek
|
|
digits join ]
|
|
echo
|