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 A096495 #23 Nov 10 2021 07:07:05
%S A096495 1,2,1,2,2,2,1,4,3,3,4,1,2,4,3,3,4,5,5,4,3,3,2,3,3,1,5,4,6,3,6,4,3,6,
%T A096495 5,7,5,6,3,3,6,6,6,5,1,7,8,3,2,3,3,6,5,5,1,4,2,7,7,5,6,3,6,6,6,5,8,6,
%U A096495 5,4,4,3,7,3,9,4,3,7,1,6,6,8,7,6,3,2,5,7,5,9,4,6,9,8,4,4,6,6,8,9,8,2,4,6,10
%N A096495 Number of distinct terms in the periodic part of the continued fraction for sqrt(prime(n)).
%H A096495 Amiram Eldar, <a href="/A096495/b096495.txt">Table of n, a(n) for n = 1..10000</a>
%F A096495 a(n) = A028832(A000040(n)). - _Amiram Eldar_, Nov 10 2021
%e A096495 n = 31: prime(31) = 127, and the periodic part is {3,1,2,2,7,11,7,2,2,1,3,22}, so a(31) = 6.
%t A096495 {te=Table[0, {m}], u=1}; Do[s=Length[Union[Last[ContinuedFraction[Prime[n]^(1/2)]]]]; te[[u]]=s;u=u+1, {n, 1, m}];te
%t A096495 Table[Length[Union[ContinuedFraction[Sqrt[Prime[n]]][[2]]]],{n,110}] (* _Harvey P. Dale_, Jun 22 2017 *)
%Y A096495 Cf. A003285, A028832, A054269, A005980, A096491, A096492, A096493, A096494, A096496.
%K A096495 nonn
%O A096495 1,2
%A A096495 _Labos Elemer_, Jun 29 2004