a:1;for i in rest(b:makelist(a:next_prime(a),i,1,100))-rest(b,-1)do dispterms(b[i]);