%I#8 2015年8月9日00:43:02

%S 3,10,2,8,17,49,4,23,41,7,39,29,6,50,79121,30151,38,19267,48174，

%电话：21287422240,24,94,22,16215861231143140396902,18134340，

%电话：310269,58,1255047921022961221271194540145718168184,90,14272

%N其中第N素数出现在A111267中。

%p A111267:=进程（nmin）局部a、k、qn、dvs；a:=[1]；qn：=5；而nops（a）<nmin-do-dvs:=排序（[op（numtheory[除数]（qn））]）；对于k从1到nops（dvs），如果不是a中的dvs[k]，则a：=[op（a），dvs[k]]；qn:=qn+ithprime（nops（a）+1）；断裂；fi；od；od；返回（a）；结束：A111272：=proc（nmin）局部a，a111267，n，i；a:=[]；a111267：=a111267（nmin）；n：=1；成员（ithprime（n），a111267，'i'）执行a:=[操作（a），i]；n:=n+1；od；返回（a）；结束：A111272（1000）；#_R.J.Mathar，2007年8月20日

%Y参考A111267、A111287。

%K nonn公司

%O 1,1号机组

%A _N.J.A.Sloane，2005年11月3日

%E更多术语摘自R.J.Mathar_，2007年8月20日