I think you’ve solved the task!
Last@FindTransientRepeat[
Differences[{Numerator@#, Denominator@#} & /@ data]
({{-1, -1}, {13, 15}, {9, 7}, {-13, -15}})
and asked to predict the next five fractions
Using this pattern you can easily get any members of sequence from any init
