primes= Flatten[ ReadList[ "primefile", Expression]]

Out[74]=

  {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 
    41, 43, 47}

Up to File IO