|
| |
|
|
A096485
|
|
Period length of continued fraction for square root of n-th decimal repunit.
|
|
3
| |
|
|
2, 6, 2, 24, 2, 622, 2, 2396, 2, 21912, 2, 527718, 2, 168484, 2, 13171730, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
EXAMPLE
| n=10: the period is [3,66666];
n=3: the period is [2, 2, 4, 5, 2, 7, 1, 41, 3, 1, 1, 4, 1, 1, 3, 41, 1, 7, 2, 5, 4, 2, 2, 210], 24 terms.
|
|
|
MAPLE
| A096485 := proc(n) ((10^n-1)/9)^(1/2) ; nops(numtheory[cfrac](%, 'periodic', 'quotients')[2]) ; end: for n from 2 to 10 do print(A096485(n)) ; od ; - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Apr 30 2007
with(numtheory): [seq(nops(cfrac(((10^k-1/9)^(1/2), 'periodic', 'quotients')[2]), k=2..10)];
|
|
|
MATHEMATICA
| Do[Print[Length[Last[ContinuedFraction[((-1+10^n)/9)^(1/2)]]]], {n, 2, 18}]
|
|
|
CROSSREFS
| Cf. A002275, A096483, A096484.
Sequence in context: A126287 A174857 A008556 * A125032 A131980 A076743
Adjacent sequences: A096482 A096483 A096484 * A096486 A096487 A096488
|
|
|
KEYWORD
| more,nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 24 2004
|
| |
|
|
