let primepowers n = [p^i |p<-primes, i<-[1..n]]