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
Programs
-
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
Comments