This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A146345 a(n) = Indices in A146326 when records occurred. 37
 1, 2, 6, 18, 31, 43, 94, 106, 151, 211, 331, 394, 526, 694, 751, 886, 919, 1114, 1324, 1726, 1759, 1831, 2011, 2311, 2326, 2671, 3019, 3691, 3754, 3931, 4174, 4951, 4999, 5119, 6211, 6406, 7606, 8254, 8719, 8779, 9244, 9619, 9739, 10399, 10651, 12919, 13126 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Robert G. Wilson v, Table of n, a(n) for n = 1..218 MAPLE A146326 := 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..1400)] ; RECORDS(a26)[2] ; # R. J. Mathar, Sep 06 2009 MATHEMATICA f[n_] := Length@ContinuedFraction[(1 + Sqrt[n])/2][[-1]]; mx = -1; k = 1; lst = {}; While[k < 14000, a = f@k; If[a > mx, mx = a; AppendTo[lst, k]]; k++]; lst (* Robert G. Wilson v, Apr 11 2017 *) CROSSREFS Cf. A000290, A078370, A146326-A146345, A146348-A146360, A146363. Sequence in context: A277200 A277324 A034881 * A064842 A302647 A324580 Adjacent sequences:  A146342 A146343 A146344 * A146346 A146347 A146348 KEYWORD nonn AUTHOR Artur Jasinski, Oct 30 2008 EXTENSIONS 19 replaced by 18. 394 inserted. 4 more terms added - R. J. Mathar, Sep 06 2009 More terms from Robert G. Wilson v, Apr 11 2017 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified July 21 22:02 EDT 2019. Contains 325210 sequences. (Running on oeis4.)