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 A071128 #5 Aug 01 2018 10:29:20
%S A071128 36,1849,6241,29929,418609,672400,1320201,7458361,28121809,119355625,
%T A071128 302794801,386554921,1211179204,1277991001,1967188609,5111964004,
%U A071128 7681646025,30542106169,73073443041,79698371481,91424593225,120297291921,292293772164,318793485924
%N A071128 Squares which repeat with at least two full periods when written in base 2.
%H A071128 Giovanni Resta, <a href="/A071128/b071128.txt">Table of n, a(n) for n = 1..106</a> (terms < 2^72)
%e A071128 173^2 = 29929 = 1110100|1110100|1 in base 2.
%t A071128 psq[b_, nd_] := Block[{sq={}, r, x}, Do[r = Mod[nd, p]; Do[x = (b^( Floor[nd/p] p) - 1)/(b^p - 1) t b^r + Floor[t/b^(p - r)]; If[ IntegerQ@ Sqrt@ x, AppendTo[ sq, x]], {t, b^(p - 1), b^p - 1}], {p, nd/2}]; sq]; Union @@ (psq[2, #] & /@ Range[32]) (* _Giovanni Resta_, Aug 01 2018 *)
%Y A071128 Cf. A071129 (base 3) - A071135 (base 9), A069919 (base 10).
%K A071128 base,nonn
%O A071128 1,1
%A A071128 _Erich Friedman_, May 28 2002
%E A071128 Missing a(13), a(17), and a(21) from _Giovanni Resta_, Aug 01 2018