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 A197169 #10 Aug 02 2019 23:04:33
%S A197169 2,2,2,2,2,2,2,46,2,2,2,2,3,10,6,2,3,3,2,2,2,6,5,2,2,5,2,2,2,2,2,2,22,
%T A197169 5,2,2,3,2,2,3,2,2,3,46,5,2,2,2,2,2,2,2,2,2,2,2,14,2,4,3,2,2,2,4,14,3,
%U A197169 2,3,2,5,2,2,2,5,2,2,2,3,6,29,3,2,2,3
%N A197169 Values of gcd(n,y) for successive y = A197128(n).
%t A197169 cr = {}; Do[If[IntegerQ[Sqrt[n]], , kk = NumberFieldFundamentalUnits[Sqrt[n]]; d1 = kk[[1]][[2]][[1]]; d2 = kk[[1]][[1]] kk[[1]][[2]][[2]]; d4 = Numerator[d2/Sqrt[n]]; If[GCD[d4, n] == 1, , AppendTo[cr, GCD[d4, n]]]], {n, 2, 20000}]; cr
%Y A197169 Cf. A087643, A172000, A194366, A197115, A197127, A197128.
%K A197169 nonn
%O A197169 1,1
%A A197169 _Artur Jasinski_, Oct 11 2011