A146344 Records in A146326.

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

Amiram Eldar, Table of n, a(n) for n = 1..416

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 *)

Crossrefs

Cf. A000290, A078370, A146326-A146345, A146348-A146360, A146363.

Sequence in context: A258137 A101814 A034090 * A162763 A113242 A343716

Adjacent sequences: A146341 A146342 A146343 * A146345 A146346 A146347

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