- 596 名前：１３２人目の素数さん mailto:sage [2018/12/03(月) 14:56:23.08 ID:QN9IvGKv.net]
- >>551
いつもの顰蹙、プログラム解
rip <- function(n){
page=(n*(n+1)/2-15000)%/%2
torn=ifelse(page%%2,page,0)
ifelse(0<torn & torn<n,torn,0)
}
rip=Vectorize(rip)
n*(n+1)/2-3=15000
1/2*(5*sqrt(4801)-1) # 172.7231
n*(n+1)/2-(2n-1)=15000
1/2*(3+7*sqrt(2449)) # 174.7058
> rip(173)
[1] 25
> rip(174)
[1] 0
