A354841 Number of primes between n and n+log(n), exclusive.

0, 0, 0, 1, 0, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 0, 1, 1, 0, 0, 0, 1, 1, 2, 1, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 2, 1, 1, 0, 1, 1, 1, 0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 2, 2, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1

Offset: 1

Author

Bernard Schott, Jun 08 2022

Keywords

• nonn

Comments

Inspired by A275235.

Crossrefs

Cf. A275235 (similar, but with n+log(n)^2), A354842.

Programs

Mathematica

a[n_] := Count[Range[n + 1, n + Log[n]], ?PrimeQ]; Array[a, 100] (* _Amiram Eldar, Jun 08 2022 *)

PARI

a(n) = primepi(n+log(n)) - primepi(n); \\ Michel Marcus, Jun 25 2022