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,2

Comments

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.

Links

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

Mathematica

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

Crossrefs

Cf. A100678, A100695, A228136.

Sequence in context: A138016 A239787 A113118 * A032417 A152415 A175826

Adjacent sequences: A287633 A287634 A287635 * A287637 A287638 A287639

Keyword

nonn

Author

Amiram Eldar, May 28 2017

Status

approved