Is it an arithmetico-geometric sequence?
Wolfram Language (Mathematica), 55 bytes

{}!=Solve[i=Range@Tr[1^#];(a+i*d)r^i==#,{r,a,d},Reals]&amp;


Try it online!

Solve return all solution forms. The result is compared with {} to check if there is any solution.