%I #9 Aug 25 2013 04:01:16
%S 10,11,78,100,101,287,364,1000,1001,1078,1096,1287,1364,10000,10001,
%T 11096,18183,100000,100001,118183,336634,1000000,1000001,1336634,
%U 2727274,10000000,10000001,12727274,19138757,23529412,25974026,97744361,100000000,100000001,120879122,123529412,140017878,165991904,237762239,288553552,307692308,333666334
%N Unabridged sub-Kaprekar numbers (A118936, but allowing powers of ten).
%C Square roots of A228103.
%C Excluding powers-of-ten and powers-of-ten-plus-one, what remains may be arranged into pairs (x,y), y>x, where y-x is a power of ten. The x terms correspond to A118938.
%H Hans Havermann, <a href="/A228381/b228381.txt">Table of n, a(n) for n = 1..1016</a>
%e 10, because 10^2 = (10-0)^2
%e 11, because 11^2 = (12-1)^2
%e 78, because 78^2 = (6-084)^2
%t k=3; While[k<10^8, k++; s=k^2; d=IntegerDigits[s]; l=Length[d]; Do[a=FromDigits[Take[d, {1, i}]]; b=FromDigits[Take[d, {i+1, l}]]; If[k==Abs[a-b], Print[k]], {i, l-1}]] (* _Hans Havermann_, Aug 21 2013 *)
%Y Cf. A045913, A118936, A118938, A228103.
%K nonn,base
%O 1,1
%A _Hans Havermann_, Aug 21 2013
|