OFFSET
1,1
COMMENTS
These are called "right primes" in A166251.
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
EXAMPLE
For p=29 we have: 2*13 < 29 < 2*17 and interval (26, 29) is free from primes while interval (29, 34) contains a prime. Therefore 29 is in the sequence for k=6.
MATHEMATICA
f[n_] := Block[{t = Select[ Table[i, {i, 2 Prime[n], 2 Prime[n + 1]}], PrimeQ]}, If[ Length@ t > 1, t[[1]], 0]]; Rest@ Union@ Array[f, 115] (* Robert G. Wilson v, May 08 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Oct 11 2009, Oct 17 2009
STATUS
approved