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,28

Comments

Inspired by A275235.

Links

Table of n, a(n) for n=1..87.

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A080080 A093662 A284256 * A339772 A250211 A243753

Adjacent sequences: A354838 A354839 A354840 * A354842 A354843 A354844

Keyword

nonn

Author

Bernard Schott, Jun 08 2022

Status

approved