RosettaCodeData/Task/Almost-prime/PARI-GP/almost-prime.parigp
2023-07-01 13:44:08 -04:00

2 lines
97 B
Text

almost(k)=my(n); for(i=1,10,while(bigomega(n++)!=k,); print1(n", "));
for(k=1,5,almost(k);print)