login
A146344
Records in A146326.
2
0, 2, 4, 6, 8, 10, 12, 18, 20, 26, 34, 42, 48, 50, 52, 54, 60, 66, 72, 76, 80, 84, 94, 96, 102, 104, 114, 122, 126, 130, 140, 148, 152, 156, 158, 178, 190, 192, 196, 202, 204, 206, 210, 228, 234, 248, 258, 268, 276, 294, 322, 332, 348, 352, 374, 376, 380, 398
OFFSET
1,2
LINKS
FORMULA
a(n) = A146326(A146345(n)). - Amiram Eldar, Apr 02 2020
MAPLE
146326 := proc(n) if not issqr(n) then numtheory[cfrac]( (1+sqrt(n))/2, 'periodic', 'quotients') ; nops(%[2]) ; else 0 ; fi; end: read("transforms") ; a26 := [seq(A146326(n), n=1..1000)] ; RECORDS(a26)[1] ; # R. J. Mathar, Sep 06 2009
MATHEMATICA
f[n_] := Length @ ContinuedFraction[(1 + Sqrt[n])/2][[-1]]; fmax = -1; seq = {}; Do[f1 = f[n]; If[f1 > fmax, fmax = f1; AppendTo[seq, f1]], {n, 1, 10^4}]; seq (* Amiram Eldar, Apr 02 2020 *)
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 30 2008
EXTENSIONS
42 inserted by R. J. Mathar, Sep 06 2009
a(1) inserted and more terms added by Amiram Eldar, Apr 02 2020
STATUS
approved