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

%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