"
西暦2025年から西暦10000年まで2月29日が日曜日になることは何回あるか?
現行のグレゴリオ暦を用いて計算せよ。
"
library(lubridate)
wday(ymd("2016-2-29"),label=TRUE)
wday(ymd("2015-2-29"),label=TRUE)

str=as.character(2025:10000)
f=\(s) wday(ymd(paste0(s,"-2-29")))
re=sapply(str,f)
sum(re[!is.na(re)]==1)