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 A031419 #22 Aug 18 2021 00:33:16
%S A031419 109,281,865,922,1277,1613,1769,1933,2161,2341,2789,3098,3653,3961,
%T A031419 4285,4457,5065,5153,5713,5858,5954,6101,6458,6554,6709,7129,7349,
%U A031419 7681,8237,8941,9242,9305,9677,10177,10498,10565,10693,10762,11162,11365,11698
%N A031419 Numbers k such that the continued fraction for sqrt(k) has odd period and if the last term of the periodic part is deleted then there are a pair of central terms both equal to 6.
%H A031419 T. D. Noe, <a href="/A031419/b031419.txt">Table of n, a(n) for n = 1..1000</a> [shifted by _Georg Fischer_, Jun 23 2019]
%t A031419 n = 1; t = {}; While[Length[t] < 50, n++; If[! IntegerQ[Sqrt[n]], c = ContinuedFraction[Sqrt[n]]; len = Length[c[[2]]]; If[OddQ[len] && c[[2, (len + 1)/2]] == 6 && c[[2, (len + 1)/2 - 1]] == 6, AppendTo[t, n]]]]; t (* _T. D. Noe_, Apr 04 2014; corrected by _Georg Fischer_, Jun 23 2019 *)
%Y A031419 Cf. A031404-A031423.
%Y A031419 Subsequence of A003814.
%K A031419 nonn
%O A031419 1,1
%A A031419 _David W. Wilson_
%E A031419 a(1) corrected by _T. D. Noe_, Apr 04 2014
%E A031419 a(1) = 10 removed by _Georg Fischer_, Jun 23 2019