OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..7300
MAPLE
f:= n -> nops(numtheory:-cfrac(sqrt(21)*n, 'periodic', 'quotients')[2]):
map(f, [$1..100]); # Robert Israel, Sep 12 2024
MATHEMATICA
Table[Length[ContinuedFraction[n Sqrt[21]][[2]]], {n, 80}] (* Harvey P. Dale, Sep 12 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
R. K. Guy, Oct 26 2001
STATUS
approved