nprimes

#!/usr/bin/env ruby

puts(lambda{|q|until(!(c||=Hash.new{|e,o|e[o]=[o<((q<=3) ? 2*q :
((q)*(p||=Proc.new{|l|Math.log(l)})[q]+q*p[p[q]])),true]})[(t||=2)][0])do
while((c[s||=(t**2)][1]=false)!=c[(s+=t)-t][0])do{}end unless(!c[t][1])
t,s=t+1;end;c.select{|w,j|j[1]}.keys.first(q)}[ARGV.last.to_i])