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 A048557 #16 Jan 20 2017 19:55:55
%S A048557 1,16,169,169744,16974441796,1697444179660172924176,
%T A048557 16974441796601729241768240010144800000000001,
%U A048557 1697444179660172924176824001014480000000000182400101448000000000020000000000000000000001
%N A048557 a(1) = 1; a(n+1) is next smallest nontrivial square beginning with a(n).
%C A048557 Next terms are 176, 351 and 702 digits long.
%H A048557 Robert G. Wilson v, <a href="/A048557/b048557.txt">Table of n, a(n) for n = 1..11</a>
%t A048557 $MaxExtraPrecision = 2^10; a[n_] := a[n] = Block[{k = 10, m = a[n - 1]}, id = IntegerDigits@ m; lng = Length@ id; While[c = Ceiling[ Sqrt[ m*k]]^2; Take[ IntegerDigits@ c, lng] != id, k *= 100]; Min[c, (Sqrt[m]*10^(lng/2) + 1)^2]]; a[1] = 1; Array[a, 11] (* _Robert G. Wilson v_, Dec 18 2014 *)
%Y A048557 Cf. A048558, A050628, A061110. See A048558 for the square roots.
%Y A048557 Cf. A249893, A249894, A048559, A249895, A249896, A249897, A249898, A048561.
%K A048557 nonn,base
%O A048557 1,2
%A A048557 _Patrick De Geest_, May 15 1999