A287708 Indices of records in A287434.

1, 2, 5, 11, 14, 19, 64, 102, 111, 131, 270, 299, 1906, 3164, 6551, 8448, 15601, 49320, 110476, 120698, 191270, 274190, 360430

Offset

1,2

Comments

The odd version of A287636. The corresponding denominators are 45, 24885, 340725, 1652115781968795, ... The denominator that corresponds to a(23) has 763921483 digits.

Links

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

Mathematica

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

Crossrefs

Cf. A287636, A287434.

Sequence in context: A251536 A347838 A191163 * A350727 A026228 A331949

Adjacent sequences: A287705 A287706 A287707 * A287709 A287710 A287711

Keyword

nonn,more

Author

Amiram Eldar, May 30 2017

Status

approved