(* Mathematica Test File *) Test[ Prime[Input[]] , 179 , TestID->"test-20111103-Q9R4I7" ]