OFFSET
1,1
COMMENTS
These are called "left primes" in A166251.
EXAMPLE
For k=6 we have 2*13 < 29 < 31 < 2*17, and the interval contains two primes. Therefore 31 is in the sequence.
MATHEMATICA
n = 0; t = {}; While[Length[t] < 100, n++; ps = Select[Range[2*Prime[n], 2*Prime[n + 1]], PrimeQ]; If[Length[ps] >= 2, AppendTo[t, ps[[-1]]]]]; t (* T. D. Noe, Apr 30 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Apr 26 2012
STATUS
approved