data={71,70,69,68,67,66,64,62,58,57,55,53,52,48,45};

Export["/Users/troyday/Desktop/Transfer/BB Chapter11/data.txt",data,"TSV"]