|
%I #21 Sep 29 2019 13:20:34
%S 1,2,1,2,10,2,19,2,25,2,156,2,149,2,580,2,716,2,6461,2,2485,2,123256,
%T 2,64,2,8638,2,722190,2,3804214,2,1783536,2,3550696,2,86022946,2,
%U 22119349,2,692630166,2,8247763078,2,43380360,2,15150768502,2,10229872316,2,36580802370,2,333495606762,2,676122216162,2
%N Length of period of continued fraction expansion of square root of 3^n-1.
%F a(n) = A003285(A024023(n)). - _Michel Marcus_, Sep 25 2019
%e The period of sqrt(242) contains 10 terms: [1,1,3,1,14,1,3,1,1,30]
%p with(numtheory): [seq(nops(cfrac(sqrt(3^k-1),'periodic','quotients')[2]),k=1..16)];
%t Table[Length[Last[ContinuedFraction[Sqrt[ -1+3^u]]]], {u, 1, 36}]
%Y Cf. A003285, A024023, A059866, A059926, A059927, A062328.
%K nonn,more
%O 1,2
%A _Labos Elemer_, Jul 13 2001
%E a(37)-a(42) from _Vaclav Kotesovec_, Aug 28 2019
%E a(43)-a(44) from _Vaclav Kotesovec_, Sep 17 2019
%E a(45)-a(52) from _Chai Wah Wu_, Sep 25 2019
%E a(53)-a(56) from _Chai Wah Wu_, Sep 29 2019
|
