%I A113797
%S A113797 48,100,147,3468,10000,10101,13467,16128,34188,140400,190476,216513,
%T A113797 300625,334668,416768,484848,530901,1000000,1010100,1016127,1034187,
%U A113797 1140399,1190475,1216512,1300624,1334667,1416767,1484847,1530900
%N A113797 Numbers n such that the digits of n can be divided in two contiguous 
               parts, n=xy, such that n=|x^2-y^2|.
%e A113797 3468 = |34^2-68^2|
%t A113797 lst = {}; Do[p = 10; While[n > p, If[Abs[Mod[n, p]^2 - Floor[n/p]^2] 
               == n, AppendTo[lst, n]]; p*=10], {n, 10^6}]; lst
%Y A113797 Sequence in context: A044186 A044567 A070258 this_sequence A044235 A044616 
               A114444
%Y A113797 Adjacent sequences: A113794 A113795 A113796 this_sequence A113798 A113799 
               A113800
%K A113797 base,nonn
%O A113797 1,1
%A A113797 Giovanni Resta (g.resta(AT)iit.cnr.it), Jan 21 2006