%I A068075
%S A068075 1,36,324,123904,3968064,28901376,14997431296,434207195136,
%T A068075 2552428007424,1780607738773504
%N A068075 Lesser of a primitive pair such that n and its 10's complement are simultaneously 
               square.
%C A068075 If k is in the sequence so is k * 100^m.
%t A068075 Do[ If[n^2 <= 5*10^Floor[ Log[10, n^2]] && IntegerQ[ Sqrt[ 10^Floor[ 
               Log[10, n^2] + 1] - n^2]] && Take[ IntegerDigits[n^2], -1] != {0}, 
               Print[n^2]], {n, 1, 4*10^6}]
%Y A068075 Cf. A068810.
%Y A068075 Sequence in context: A017594 A014800 A067473 this_sequence A053136 A000821 
               A071232
%Y A068075 Adjacent sequences: A068072 A068073 A068074 this_sequence A068076 A068077 
               A068078
%K A068075 base,nonn
%O A068075 1,2
%A A068075 Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 20 2002