水5kgから始めると
[1] 1.00 2.25 3.50 4.75 6.00
> w=5
> alc=numeric()
> alc[1]=1/w
> for(i in 2:5) alc[i]=(alc[i-1]*(w-1)+1)/w
> alc*w
[1] 1.0000 1.8000 2.4400 2.9520 3.3616
>