T = { 
286,
345,
455,
556, 
667,
833
};

Ro = {
12.2,
3.49,
1,
0.223,
0.018,
0.0015
};

k = 8.617332*10^(−5);
	
XValues = Table[1/(2*k*T[[i]]),{i,1,6}]
OloTable = Table[{1/(2*k*T[[i]]), Log[1/Ro[[i]]]},{i,1,6}]
ListLinePlot[OloTable]