for($a=1; $a=<800000; $a++){
$aquadrat=$a**2;
$laenge=length($a);
$testata=$aquadrat%(10**$laenge);
$testatb=$aquadrat/(10**$laenge);
$testatb=int($testatb);
if($testata+$testatb==$aquadrat) 
	{print "$a\n"}
	else {last};
}