This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A050634 #8 Oct 15 2019 00:02:00
%S A050634 1,81,1681,1461681,220861461681,31071113326220861461681,
%T A050634 36510705834446371569631071113326220861461681,
%U A050634 268496773864458678522722709023395604054900436510705834446371569631071113326220861461681
%N A050634 a(n+1) is next smallest square ending with a(n), initial term is 1.
%t A050634 d[n_]:=IntegerDigits[n]; t={m=1}; Do[If[Take[d[x=n^2],-Length[y=d[m]]]==y,AppendTo[t,m=x]],{n,Flatten[Table[10k+{-1,1},{k,50000}]]}]; t (* _Jayanta Basu_, May 30 2013 *)
%Y A050634 Cf. A050635, A048557, A050628.
%K A050634 nonn,base
%O A050634 1,2
%A A050634 _Patrick De Geest_, Jul 15 1999
%E A050634 More terms from Jonathan Cross (jcross(AT)wcox.com), Oct 09 2001