%I#11 2017年4月5日00:32:24
%S 30128341814147798994070251048095105831852088000,
%电话:54376939155036841178197505784962279163039331595016,
%电话:864479870564593025822720202435195161861029512724167389712763025652594148194488759500411647073225254466
%N以9为前缀,以10为底加上25后其正方形仍为正方形的数字。
%e 30^2=900,990025=995^2。
%p F:=proc(d)局部m,d,p;
%pm:=9*10^d+25;
%p D:=数量:-除数(m);
%p p:=映射(t->(m/t-t)/20,选择(t->t^2<m和(m/t-t)mod 20=0,D));
%p op(选择(t->10^(d-3)<=t^2和t^2<10^,(d-2),p));
%p端程序:
%p序列(F(n),n=4..83);#_Robert Israel_,2017年4月4日
%Y参考A249621、A249968、A249969、A249970、A249971、A249972、A250433、A250434。
%K nonn,基础,更多
%O 1,1号机组
%2014年11月23日,A_Chai Wah Wu_
|