The OEIS is supported by the many generous donors to the OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A146477 Numbers k for which A146326(k) is different from A146326(j) for j < k. 1
 2, 5, 6, 17, 18, 31, 41, 43, 73, 89, 94, 106, 118, 151, 172, 193, 211, 241, 265, 268, 331, 334, 337, 379, 394, 409, 421, 433, 463, 489, 521, 526, 601, 604, 619, 634, 673, 694, 718, 721, 751, 769, 886, 919, 929, 937, 1033, 1039, 1114, 1174, 1201, 1249, 1291, 1321, 1324, 1471, 1516, 1579, 1609 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS This sequence is sorted A146343. Original name was: a(n) = smallest numbers which continued fractions have different period. LINKS Robert Israel, Table of n, a(n) for n = 1..700 MAPLE f:= proc(n) if issqr(n) then 0 else nops(numtheory:-cfrac((1+sqrt(n))/2, periodic, quotients)[2]) fi end proc: S:= {0}: R:= NULL: count:= 0: for n from 2 while count < 30 do   v:= f(n);   if not member(v, S) then      count:= count+1; R:= R, n; S:= S union {v};   fi od: R; # Robert Israel, May 02 2021 MATHEMATICA \$MaxExtraPrecision = 300; s = 10; aa = {}; Do[k = ContinuedFraction[(1 + Sqrt[n])/2, 1000]; If[Length[k] < 190, AppendTo[aa, 0], m = 1; While[k[[s ]] != k[[s + m]] || k[[s + m]] != k[[s + 2 m]] || k[[s + 2 m]] != k[[s + 3 m]] || k[[s + 3 m]] != k[[s + 4 m]], m++ ]; s = s + 1; While[k[[s ]] != k[[s + m]] || k[[s + m]] != k[[s + 2 m]] || k[[s + 2 m]] != k[[s + 3 m]] || k[[s + 3 m]] != k[[s + 4 m]], m++ ]; AppendTo[aa, m]], {n, 1, 1200}]; Print[aa]; bb = {}; Do[k = 1; yes = 0; Do[If[aa[[k]] == n && yes == 0, AppendTo[bb, k]; yes = 1], {k, 1, Length[aa]}], {n, 1, 22}]; Sort[bb] CROSSREFS Cf. A000290, A078370, A146326-A146345, A146348-A146360, A146363. Sequence in context: A342488 A098871 A227623 * A348439 A166753 A319756 Adjacent sequences:  A146474 A146475 A146476 * A146478 A146479 A146480 KEYWORD nonn AUTHOR Artur Jasinski, Oct 30 2008 EXTENSIONS 19 replaced by 18, 331 and 334 inserted by R. J. Mathar, Nov 08 2008 Name clarified by Robert Israel, May 02 2021 STATUS approved

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

Last modified May 27 16:48 EDT 2022. Contains 354110 sequences. (Running on oeis4.)