После первого элемента различия между элементами в последовательности Фибоначчи должны быть последовательности. Итак, простое решение -
F1 = c(2,5,7,12,19,31)
F2 = c(2,5,7,12,18,31)
all(diff(F1)[-1] == head(F1, -2))
[1] TRUE
all(diff(F2)[-1] == head(F2, -2))
[1] FALSE