OFFSET
0,1
COMMENTS
We use offset 0 because A215237 uses that offset.
MATHEMATICA
t = Table[PrimePi[Prime[n + 1]/2] - PrimePi[Prime[n]/2], {n, 100000}]; t2 = Flatten[Table[Position[t, n, 1, 1], {n, 0, 8}]]; NextPrime[Prime[t2]]
CROSSREFS
KEYWORD
nonn,hard
AUTHOR
T. D. Noe, Oct 11 2012
EXTENSIONS
a(14)-a(18) from Donovan Johnson, Oct 13 2012
STATUS
approved