p=(12 6 4 12 4 6) $[i={1..50},j={0..6},j>i||(d[i]+=j?d[i-j]/p[j-1]:10**6)] read while read n do echo $[d[n]?d[n]:(n*8/3+5)*10**5]e-6 done