A038800 Number of primes between 10n and 10n+9.
4, 4, 2, 2, 3, 2, 2, 3, 2, 1, 4, 1, 1, 3, 1, 2, 2, 2, 1, 4, 0, 1, 3, 2, 1, 2, 2, 2, 2, 1, 1, 3, 0, 2, 2, 2, 1, 2, 2, 1, 2, 1, 1, 3, 2, 1, 3, 1, 1, 2, 2, 0, 2, 0, 2, 1, 2, 2, 1, 2, 2, 3, 0, 1, 3, 2, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 2, 1, 1, 1, 1, 1, 4, 1, 0, 3, 1, 1, 3, 0, 1, 2, 1, 1, 2, 1, 1, 2, 1, 2, 1, 2, 1, 3, 1, 1
Offset: 0
Links
- Michael De Vlieger, Table of n, a(n) for n = 0..10000
- A. Frank and P. Jacqueroux, International Contest, 2001. Numerators of Item 23
Programs
-
Mathematica
Table[Count[Range[10 n, 10 n + 9], p_ /; PrimeQ@ p], {n, 0, 105}] (* Michael De Vlieger, Sep 25 2016 *) Table[PrimePi[10n+9]-PrimePi[10n],{n,0,120}] (* Harvey P. Dale, May 04 2025 *)
-
PARI
a(n) = primepi(10*n+9) - primepi(10*n); \\ Michel Marcus, Sep 26 2016
Extensions
a(43) corrected by Bobby Jacobs, Sep 25 2016
a(101) and a(104) corrected by Michael De Vlieger, Sep 25 2016
Comments