>>202
写像ではなく、点の移動をグラフで表し、その関数値R=a(p^n+…+1)/(2bp^n)の差分を掛けるという操作ですけど？
(a,b,p,n)→(a',b',p',n')
a=Π[k=1,r](pk^qk+…+1)
b=Π[k=1,r]pk^qk
a'=a×(pr+1^qr+1+…+1)
b'=b×pr+1^qr+1
p=2×Π[k=1,r]pk^dk-1
p'=2×Π[k=1,r]pk^dk×pk+1^(dk+1)-1
0≦dk+1≦qk+1