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

Author

Amiram Eldar, May 28 2017

Keywords

• nonn

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

Crossrefs

Cf. A100678, A100695, A228136.

Programs

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