|
%I #23 Nov 10 2021 07:07:05
%S 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 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 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 Number of distinct terms in the periodic part of the continued fraction for sqrt(prime(n)).
%H Amiram Eldar, <a href="/A096495/b096495.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A028832(A000040(n)). - _Amiram Eldar_, Nov 10 2021
%e 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 {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 Table[Length[Union[ContinuedFraction[Sqrt[Prime[n]]][[2]]]],{n,110}] (* _Harvey P. Dale_, Jun 22 2017 *)
%Y Cf. A003285, A028832, A054269, A005980, A096491, A096492, A096493, A096494, A096496.
%K nonn
%O 1,2
%A _Labos Elemer_, Jun 29 2004
|
