21/02/25 23:46:09.31 hnhpFIHV.net
プログラムに探索させてみる
library(numbers)
f <- function(n){
an=choose(2*n,n)/(n+1)
if(!is.wholenumber(an)) return(NULL)
else if(!isPrime(an)) return(NULL)
else return(n)
}
i=1
while(T){
if(!is.null(f(i))) cat(i,' ')
i=i+1
}
> while(T){
+ if(!is.null(f(i))) cat(i,' ')
+ i=i+1
+ }
2 3
で処理が終わらないから 答は２と３ぽいな。