A216289 Smallest k in which there are exactly n primes between 10*k and 10*k+9.

20, 9, 2, 4, 0

Offset

0,1

Links

Table of n, a(n) for n=0..4.

Mathematica

mx = 5; t = Table[-1, {mx}]; n = 0; found = 0; While[found < mx, ps = Select[Range[10*n, 10*n + 9], PrimeQ]; len = Length[ps]; If[t[[len + 1]] == -1, t[[len + 1]] = n; found++]; n++]; t (* T. D. Noe, Sep 03 2012 *)

Crossrefs

Cf. A186311, A032352, A007811, A078494.

Sequence in context: A123174 A040384 A078080 * A136010 A091534 A033966

Adjacent sequences: A216286 A216287 A216288 * A216290 A216291 A216292

Keyword

nonn,fini,full

Author

V. Raman, Sep 03 2012

Status

approved