A118000个:=proc(nmax)局部a,n;a:=[0];而nops(a)<nmax do n:=nops(a);而gcd(n,op(-1,a))<>1做n:=n+1;od;a:=[op(a),op(-1,a)+n];od;返回(a);结束时间:A118000个(100) ;-_#_R.J.Mathar,2007年6月6日
A118000个:=proc(nmax)局部a,n;a:=[0];而nops(a)<nmax do n:=nops(a);而gcd(n,op(-1,a))<>1做n:=n+1;od;a:=[op(a),op(-1,a)+n];od;返回(a);结束时间:A118000个(100) ; -_R.J.马塔尔(马塔尔(在)街道.莱德努尼夫.荷兰),_,2007年6月6日