Normal @ First @ Ratios[TimeSeries /@ {data2, data1}]
{ {{1, 17/728}, {2, 54/1367}, {3, 33/1040}, {4, 77/1998}, {5, 4/45}}
Or define a function:
ClearAll[rF]
rF = Normal @* First @* Ratios @* Map[TimeSeries] @* Reverse;
rF @ {data1, data2}
Normal@ rF @ {data1, data2}
{{1, 17/728}, {2, 54/1367}, {3, 33/1040}, {4, 77/1998}, {5, 4/45}}
Or use the property "Path"
:
rF[{data1, data2}]["Path"]
{{1, 17/728}, {2, 54/1367}, {3, 33/1040}, {4, 77/1998}, {5, 4/45}}