Hi,
if you type the squared number sequence in Woflram alpha gives:
In Mathematica the following command does the trick:
FindSequenceFunction[{108/17, 8748/1757, 432/113, 5292/1853, 972/473,
108/77, 54/61, 972/1973, 108/497, 108/1997}]
Best wishes,
Marco