Almost prime: Difference between revisions

/* Function that given a parameter k1 returns the first len k1-almost primes */

k_almost_prime_count(k1,len):=block(

while length(sublist(makelist(i,i,count),lambda([x],k_almost_primep(x,k1))))<len do (count:count+1),

sublist(makelist(i,i,count),lambda([x],k_almost_primep(x,k1))))$