print@a{grep$a{$a=/0..$/*$`**2*$&**3}|=$a.$/,2..1e6}