z=[2];r=[2];y=[]\x0d 65.times{|i|r<<i*2+3}\x0d r.length.times{|i|\x0d f=0\x0d (i/2+1).times{|w|f=1if r[i]%(w+2)==0}\x0d z<<r[i]if f==0\x0d }\x0d l=z.length\x0d l.times{|i|\x0d (l-i-1).times{|j|\x0d (l-i-j-2).times{|k|\x0d y<<z[i]*z[i+j+1]*z[i+j+k+2]\x0d }}}\x0d y.sort!.uniq!\x0d 100.times{|i|puts y[i]}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).