a:1;for i in rest(b:makelist(a:next_prime(a),i,1,100))-rest(b,-1)do dispterms(b[i]);
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page