Sphenic Numbers by murky-satyr

set i 9\x0d
while {[incr i]<763} {set k [set p 1]\x0d
while {[incr p]<$i&&$i%($p*$p)} {if {$i%$p<1} incr\ k}\x0d
if \$k==7 {puts $i}}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page