A287708 - OEIS

%I #7 Jun 23 2017 06:45:18

%S 1,2,5,11,14,19,64,102,111,131,270,299,1906,3164,6551,8448,15601,

%T 49320,110476,120698,191270,274190,360430

%N Indices of records in A287434.

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

%t 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

%Y Cf. A287636, A287434.

%K nonn,more

%O 1,2

%A _Amiram Eldar_, May 30 2017