OFFSET
2,1
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
Amarnath Murthy, Mar 29 2004
EXTENSIONS
More terms from Ryan Propper, Sep 23 2006
STATUS
approved