%I #8 Jul 04 2020 05:50:27
%S 4,9,26,70,190,516,1403,3815,10370
%N a(n) = least k such that n < Integral_{x=1/k..1} Gamma(x) dx.
%C Does the sequence a(n+1)/a(n) converge?
%t t = Table[{k, NIntegrate[Gamma[t], {t, 1/k, 1}]}, {k, 1, 12500}];
%t f = Flatten[Table[Select[t, #[[2]] > n &, 1], {n, 1, 9}]];
%t Table[f[[2 k - 1]], {k, 1, 9}]
%o (PARI) a(n) = my(k=1); while (intnum(x=1/k, 1, gamma(x)) <= n, k++); k; \\ _Michel Marcus_, Jul 04 2020
%Y Cf. A335985.
%K nonn,more
%O 1,1
%A _Clark Kimberling_, Jul 03 2020