OFFSET
1,1
COMMENTS
For all R(k) > 3251, or all k > 201, R(k) < 2k log R(k). - John W. Nicholson, Nov 05 2016
LINKS
C. Axler, On generalized Ramanujan primes, arXiv preprint arXiv:1401.7179 [math.NT], 2014.
MATHEMATICA
nn = 201; R = Table[0, {nn}]; s = 0; Do[ If[ PrimeQ[k], s++]; If[ PrimeQ[k/2], s--]; If[s < nn, R[[s +1]] = k], {k, Prime[3nn]}]; R = R +1; R[[#]] & /@ Select[ Range@ nn, R[[#]] >= 2#*Log[R[[#]]] &] (* Robert G. Wilson v, Nov 05 2016 after T. D. Noe in A104272 *)
PROG
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
John W. Nicholson, Jan 03 2013
STATUS
approved