%I#6 2015年8月9日00:44:08
%S 0,1,4,25,16,9,16121324,25529,3644114,49256361,64169576,81,
%电话:4842891961002310421161213312415129313614411561616120164,
%电话:169501765184196102013920420992162822422511236624126244
%以k结尾的最小平方,其中k是平方的可能端点。
%C m^2对应的项是m^2。
%e 6可以是平方的最低有效数字,16是以6结尾的最小平方,因此,与6对应的项是16,也对应于16。没有以2,3,7,8,10,11,12,13,14,15等结尾的方块。
%p is Squend:=proc(n)局部ldp10,i;ldp10:=10^nops(转换(n,基数,10));对于从0到ldp10-1的i,如果(i^2)mod ldp10=n,则执行RETURN(true);fi;od;RETURN(返回)(错误);结束:A111446:=proc(n)选项记住;局部k,ldp10,c;如果n=0,则返回([0,0]);否则k:=1+op(2,A111446(n-1));当不是squend(k)时,执行k:=k+1;od;ldp10:=10^nops(转换(k,基数,10));对于从1开始的c,如果(c^2 mod ldp10)=k,则返回([c^2,k]);fi;od:fi;结束:序列(op(1,A111446(n)),n=0..80);#_R.J.Mathar,2008年2月8日
%K基,nonn
%0、3
%A _Amarnath Murthy,2005年8月3日
%E Keith Schneider提供的更多条款(schneidk(AT)email.unc.edu),2007年12月13日
%E更多条款来自R.J.Mathar_,2008年2月8日
|