Search: id:A113797 Results 1-1 of 1 results found. %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 Search completed in 0.001 seconds