|
%I #2 Mar 30 2012 17:30:42
%S 1,36,324,123904,3968064,28901376,14997431296,434207195136,
%T 2552428007424,1780607738773504
%N Lesser of a primitive pair such that n and its 10's complement are simultaneously square.
%C If k is in the sequence so is k * 100^m.
%t 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 Cf. A068810.
%K base,nonn
%O 1,2
%A _Robert G. Wilson v_, Mar 20 2002
|
