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 A069919 #13 Aug 01 2018 21:08:26
%S A069919 69696,56722567225,95540955409,1108033241108033241,
%T A069919 1220096161220096161,4312080784312080784,4432132964432132964,
%U A069919 4880384644880384644,9024307889024307889,9972299169972299169,225607697225607697225,946308825294630882529,1322314049613223140496
%N A069919 Squares which repeat with at least two full periods when written in base 10.
%H A069919 Giovanni Resta, <a href="/A069919/b069919.txt">Table of n, a(n) for n = 1..21</a> (terms < 10^24)
%e A069919 264^2 = 69|69|6 in base 10.
%e A069919 15020242915^2 = 225607697|225607697|225 in base 10.
%e A069919 36363636364^2 = 13223140496|13223140496 in base 10.
%t A069919 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[10, #] & /@ Range[11]) (* _Giovanni Resta_, Aug 01 2018 *)
%Y A069919 Cf. A071128 (base 2) - A071135 (base 9), A116502.
%K A069919 base,nonn
%O A069919 1,1
%A A069919 _Erich Friedman_, Apr 25 2002
%E A069919 Corrected and extended by _Jason Earls_, Jun 16 2002
%E A069919 Data corrected and extended by _Giovanni Resta_, Aug 01 2018