main = interact $ show . f . read f n=[x|x<-[n..],mod x 3>0,notElem '3'$show x]!!1
299
400
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!