A228136 -id:A228136 - cp's OEIS frontend

A287636 Indices of records in A100695.

1, 2, 4, 6, 10, 15, 16, 22, 30, 66, 70, 103, 210, 261, 1118, 1625, 2815, 3081, 3088, 6693, 18390, 18762, 32697, 59860, 71355, 155165, 198033, 208790, 262546, 266403, 673708, 697924, 699690, 760750, 1081782, 2993838, 4449916, 4672993, 4692381, 5547049, 6068616

Offset: 1

Amiram Eldar, May 28 2017

nonn

The corresponding denominators are 2, 6, 20, 42, 231, 240, 32640, 34362, 633759288, 1532037276, 4716994695, 100039636784966424, ... The denominator that corresponds to a(45) has 878175 digits.

Amiram Eldar, Table of n, a(n) for n = 1..57

Cf. A100678, A100695, A228136.

a={};dmax=0;n=1;While[Length[a]<40,denom=0; k=n/(n+1); While[ k>0,denom=Ceiling[1/k]; k=k-1/denom]; If[denom>dmax,dmax=denom;a=AppendTo[a,n]];n++];a

A287395 Indices of records in A286720.

Original entry on oeis.org

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

Offset: 1

Amiram Eldar, May 30 2017

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

Cf. A228136, A286720.

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

cp's OEIS Frontend

A287636 Indices of records in A100695.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica