Total[h /@ Length /@ Union /@ Tuples[Range@6, 6]/6.^6]