use integer;$n=<>;$l=1;$a-$n||push(@z,"
$l $r"),$a+=$a>$n?-$l++**3:++$r**3until$r>1e6;print~~@z,@z