n=10000 clear screen print 2 for x=2 to n for y=3 to x z=x/y if z=int(z) break if y=x break if y=x-1 print x; next y next x