login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A287395 Indices of records in A286720. 0
1, 2, 11, 14, 19, 131, 270, 299, 1906, 6551, 8448, 110476, 120698, 274190, 360430 (list; graph; refs; listen; history; text; internal format)
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

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 17 17:12 EDT 2019. Contains 324196 sequences. (Running on oeis4.)