高校数学の質問スレ Part410

[0349 １３２人目の素数さん 2021/02/28(日) 23:45:51.92 ID:4XXGbQLR]

>>301
f <- function(N){
+ a=numeric()
+ a[1]=0
+ a[2]=0
+ # a[3]=(a[1]-1)%%100
+ # a[4]=(a[2]-1)%%100
+ for(n in 2:N){
+ a[n+1]=(a[n-1]-1)%%100
+ }
+ a[N]
+ }
> f(100)
[1] 51