|
|
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
MAPLE公司
|
with(combint):ds:=进程局部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中的s 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.罗纳尔多
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
更多来自C.Ronaldo(aga_new_ac(AT)hotmail.com)的条款,2004年12月25日
|
|
状态
|
已批准
|
|
|
|