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 A229288 #9 Aug 04 2024 13:17:37
%S A229288 1,1,1,1,3,1,1,5,2,15,2,13,6,3,1,5,3,1,5,13,12,55,6,97,6,9,2,1,5,39,
%T A229288 28,7,14,31,11,83,21,51,2,31,30,51,4,7,3,1,40,37,21,27,2,95,15,9,14,5,
%U A229288 2,1,11,107,6,51,18,31,9,13,13,13,9,81,7,90,13,19
%N A229288 Least k such that the numerator of the continued fraction [2,..,2,k] (n 2s) is prime.
%e A229288 The numerators of the continued fraction [2,2,2,2,2,k] for k=1,2,3 are 99,169,239; the first two are not prime and 239 is, so a(5) = 3.
%t A229288 z = 160; c[n_, k_] := Join[ContinuedFraction[1 + Sqrt[2], n], {k}]; x[n_, k_] := Numerator[FromContinuedFraction[c[n, k]]]; t[n_] := Table[x[n, k], {k, 1, z}]; u = Table[First[Select[t[n], PrimeQ]], {n, 1, z}]; Flatten[Table[Position[t[n], u[[n]]], {n, 1, z}]]
%Y A229288 Cf. A099088, A086395, A229287.
%K A229288 nonn
%O A229288 1,5
%A A229288 _Clark Kimberling_, Sep 19 2013