The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A335983 a(n) = least k such that n < Integral_{x=1/k..1} Gamma(x) dx. 1
 4, 9, 26, 70, 190, 516, 1403, 3815, 10370 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Does the sequence a(n+1)/a(n) converge? LINKS 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 27 05:38 EDT 2020. Contains 338035 sequences. (Running on oeis4.)