OFFSET
1,1
COMMENTS
LINKS
Hans Havermann, Table of n, a(n) for n = 1..1016
EXAMPLE
10, because 10^2 = (10-0)^2
11, because 11^2 = (12-1)^2
78, because 78^2 = (6-084)^2
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Hans Havermann, Aug 21 2013
STATUS
approved