|
|
A092998
|
|
Least integer k > n such that the number of primes between 1 and n (exclusive) is the same as the number of primes between n and k (exclusive).
|
|
3
|
|
|
3, 6, 8, 12, 14, 18, 20, 20, 20, 24, 30, 32, 38, 38, 38, 42, 44, 48, 54, 54, 54, 60, 62, 62, 62, 62, 62, 68, 72, 74, 80, 80, 80, 80, 80, 84, 90, 90, 90, 98, 102, 104, 108, 108, 108, 110, 114, 114, 114, 114, 114, 128, 132, 132, 132, 132, 132, 138, 140, 150, 152, 152
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
2,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[k = n + 1; While[Length[Select[Range[n - 1], PrimeQ]] != Length[Select[Range[n + 1, k - 1], PrimeQ]], k++ ]; Print[k], {n, 2, 100}] (* Ryan Propper, Sep 23 2006 *)
Table[Nest[NextPrime, n, PrimePi[n-1]]+1, {n, 2, 70}] (* Harvey P. Dale, May 19 2016 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|