#/usr/bin/perl -w 
$add = 395425559298; 
for($year=513400;;$year++) { 
$var = $year; 
for ($i = 1; $i <= $year; $i++) { 
$var += $year+$i} 
if($var == $add) { 
print $year,"!!!","\n\n\n"; 
die; } 
print $year,"\t",$var,"\n"; }