9to:762 do:[:i|(((K:=2)to:i)select:[:p|i\\(p*p)>0or:[K:=9].i\\p=0])size+K=9and:[i printNl]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page