OFFSET
1,2
FORMULA
EXAMPLE
n=6: cfrac(sqrt(30030),'periodic','quotients')=[[173], [3, 2, 3, 346]], so a(6)=4
MAPLE
with(numtheory): [seq(nops(cfrac(sqrt(product(ithprime(j), j=1..k)), 'periodic', 'quotients')[2]), k=1..14)];
MATHEMATICA
Table[Length[Part[ContinuedFraction[Sqrt[q[u]]], 2]], {u, 1, 18}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Labos Elemer, Oct 04 2001
EXTENSIONS
a(19)-a(22) from Daniel Suteu, Jan 24 2019
a(23)-a(24) from Chai Wah Wu, Sep 25 2019
a(25)-a(26) from Chai Wah Wu, Sep 26 2019
STATUS
approved