use bigint; ($n,$a,$b)=glob<>; $z+=($b**$_-$a**$_)*2520*<>/$_ for 1..$n+1; print$z/2520;