A335983 a(n) = least k such that n < Integral_{x=1/k..1} Gamma(x) dx.

4, 9, 26, 70, 190, 516, 1403, 3815, 10370

Offset

1,1

Comments

Does the sequence a(n+1)/a(n) converge?

Links

Table of n, a(n) for n=1..9.

Mathematica

t = Table[{k, NIntegrate[Gamma[t], {t, 1/k, 1}]}, {k, 1, 12500}];
f = Flatten[Table[Select[t, #[[2]] > n &, 1], {n, 1, 9}]];
Table[f[[2 k - 1]], {k, 1, 9}]

Prog

(PARI) a(n) = my(k=1); while (intnum(x=1/k, 1, gamma(x)) <= n, k++); k; \\ Michel Marcus, Jul 04 2020

Crossrefs

Cf. A335985.

Sequence in context: A216134 A226908 A328657 * A113682 A291064 A145855

Adjacent sequences: A335980 A335981 A335982 * A335984 A335985 A335986

Keyword

nonn,more

Author

Clark Kimberling, Jul 03 2020

Status

approved