A287395 Indices of records in A286720.

1, 2, 11, 14, 19, 131, 270, 299, 1906, 6551, 8448, 110476, 120698, 274190, 360430

Offset

1,2

Comments

The records for the numbers of fractions are 4, 6, 8, 10, 12, 14, 16, 18, 22, 24, 26, 28, 30, 32, 34, ...

Links

Table of n, a(n) for n=1..15.

Mathematica

odd[n_]:=If[OddQ[n], n, n+1]; a={}; amax=0; n=1; While[Length[a]<25, lst={}; k=2n/(2n+1); s1=0; While[k>0, s2=odd[Ceiling[1/k]]; If[s2==s1, s2+=2]; AppendTo[lst, s2]; k=k-1/s2; s1=s2]; len=Length[lst]; If[len>amax, amax=len; a=AppendTo[a, n]]; n++]; a

Crossrefs

Cf. A228136, A286720.

Sequence in context: A299531 A106660 A130288 * A031192 A283930 A034039

Adjacent sequences: A287392 A287393 A287394 * A287396 A287397 A287398

Keyword

nonn,more

Author

Amiram Eldar, May 30 2017

Status

approved