%I#9 2013年8月25日04:01:16
%S 10,11,781001012873641000100110781096128713641000010001,
%电话:1109618183100000100001111818333663410000001000011336634,
%电话:272727410000000100000112727274191387535294122597402697744361100000000010000000112087912212352941214001787816599190423722392855355230876923083666334
%N未删节的亚Kaprekar数(A118936,但允许十的幂)。
%C A228103的平方根。
%C除去ten的幂和ten-plus-one的幂,剩下的可以成对排列(x,y),y>x,其中y-x是10的幂。x项对应于A118938。
%H Hans Havermann,n的表,n=1..1016的a(n)</a>
%e 10,因为10^2=(10-0)^2
%e 11,因为11^2=(12-1)^2
%e 78,因为78 ^2=(6-084)^2
%t k=3;而[k<10^8,k++;s=k^2;d=整数位数[s];l=长度[d];Do[a=FromDigits[Take[d,{1,i}]];b=起始数字[Take[d,{i+1,l}]];如果[k==Abs[a-b],打印[k]],{i,l-1}]](*Hans Havermann_,2013年8月21日*)
%Y参见A045913、A118936、A118938、A228103。
%K nonn,基础
%O 1,1号机组
%A _汉斯·哈弗曼,2013年8月21日
|