Lcat:=proc(L)局部a,i;a:=0;对于从1到nops(L)的i,做a:=a*10^(最大值(1,ilog10(op(i,L))+1))+op(i、L);od:返回(a);结束时间:A109744号:=proc(nmax)局部a,k,n;a:=[1];而nops(a)<nmax do n:=nops(a)+1;k:=1;当非素(Lcat([op(a),k*n,7]))时,做k:=k+1;od;a:=[op(a),k*n];od:返回(a);结束:op(A109744号(50)) ;-_#_R.J.Mathar,2007年8月15日
Lcat:=proc(L)局部a,i;a:=0;对于i从1到nops(L),做a:=a*10^(max(1,ilog10(op(i,L))+1))+op(i、L);od:返回(a);结束时间:A109744号:=proc(nmax)局部a,k,n;a:=[1];而nops(a)<nmax do n:=nops(a)+1;k:=1;当非素(Lcat([op(a),k*n,7]))时,做k:=k+1;od;a:=[op(a),k*n];od:返回(a);结束:op(A109744号(50)) ; -_R.J.马塔尔(马塔尔(自动变速箱)街道.莱德努尼夫.荷兰),_,2007年8月15日