Faster euler040