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

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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