OFFSET
1,28
COMMENTS
Inspired by A275235.
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
KEYWORD
nonn
AUTHOR
Bernard Schott, Jun 08 2022
STATUS
approved