prob 43 initial code for pandigital numbers