18 lines
364 B
Text
18 lines
364 B
Text
[ number$
|
|
space 6 of swap join
|
|
-7 split nip echo$ ] is rjust ( n --> )
|
|
|
|
say " index prime sum" cr
|
|
say " ----- ----- ---" cr
|
|
[] 1000 times
|
|
[ i^ isprime if [ i^ join ] ]
|
|
0 swap
|
|
witheach
|
|
[ dup dip +
|
|
over isprime iff
|
|
[ i^ 1+ rjust
|
|
rjust
|
|
dup rjust
|
|
cr ]
|
|
else drop ]
|
|
drop
|