%I #21 Sep 27 2019 02:51:33
%S 1,2,2,2,2,4,2,36,38,244,244,1830,3422,10626,3828,20970,580384,
%T 4197850,18395762,76749396,166966158,1492773346,2307891442,
%U 30021987038,150709818548,20897087728
%N Period of continued fraction for square roots of primorials.
%F a(n) = A003285(A002110(n)). - _Michel Marcus_, Sep 26 2019
%e n=6: cfrac(sqrt(30030),'periodic','quotients')=[[173], [3, 2, 3, 346]], so a(6)=4
%p with(numtheory): [seq(nops(cfrac(sqrt(product(ithprime(j),j=1..k)), 'periodic','quotients')[2]),k=1..14)];
%t Table[Length[Part[ContinuedFraction[Sqrt[q[u]]], 2]], {u, 1, 18}]
%Y Cf. A002110, A003285.
%K nonn,more
%O 1,2
%A _Labos Elemer_, Oct 04 2001
%E a(19)-a(22) from _Daniel Suteu_, Jan 24 2019
%E a(23)-a(24) from _Chai Wah Wu_, Sep 25 2019
%E a(25)-a(26) from _Chai Wah Wu_, Sep 26 2019
|