%I#6 2017年8月13日21:40:51

%编号：682982974896052992548

%N A089395中最大的N位成员。

%p with（combint）：ds:=proc（s）local j:RETURN（add（s[j]*10^（j-1），j=1..nops（s））：结束：对于从1到6的d do sch:=[seq（[1，op（i），d+1]，i=[]，seq（[j]，j=2..d）]）：对于从10^d-1到10^（d-1）的n，do sn:=转换（n，base，10）：fl:=0：对于sch do m:=mul（j，j=[seq（ds（sn[s[i]..s[i+1]-1]），i=1..nops（s）-1）]）+1：如果不是isprime（m）则fl:=1:break fi od：如果fl=0，则printf（“%d，”，n）：break fi od：#C.罗纳尔多

%Y参见A089392、A089393、A08939、A08935、A08936。

%K基，nonn

%O 1,1号机组

%A _Amarnath Murthy，2003年11月10日

%E更多来自C.Ronaldo（aga_new_ac（AT）hotmail.com）的条款，2004年12月25日