%I#34 2016年11月6日01:56:32

%S 2,11,17,29,41,47,59,971271491511671792272233347367401，

%电话：40959571587593937142314272237261726593251

%N个数R（k），使得R（k）>=2k log R（k），其中R（k）=A104272（k）是第k个Ramanujan素数。

%C对于所有R（k）>3251，或所有k>201，R（k）<2k log R（k）。-_John W.Nicholson，2016年11月5日

%H C.阿克斯勒，<a href=“网址：http://arxiv.org/abs/401.7179“>关于广义Ramanujan素数，arXiv预印本arXiv:1401.7179[math.NT]，2014。

%t nn=201；R=表[0，{nn}]；s=0；Do[If[PrimeQ[k]，s++]；如果[PrimeQ[k/2]，s--]；如果[s<nn，R[[s+1]]=k]，{k，素数[3nn]}]；R=R+1；R[[#]]&/@选择[Range@nn，R[[#]]>=2#*Log[R[#]]&]（*_Robert G.Wilson v_，2016年11月5日，A104272*中的_T.D.Noe_之后）

%o（PARI）

%o\\用RR[i]列出A104272中的Ramanujan素数。

%程序也给出了A104272的索引i。

%o n=0；对于（i=1,10^6，如果（RR[i]/（2*i）>=log（RR[i），打印（n++，“i”，“primepi（RR[i]），“”，RR[i]））

%K nonn，fini，完全

%O 1,1号机组

%A _John W.Nicholson，2013年1月3日