搜索: a143995-编号:a143996
|
|
|
|
1760, 1788, 1828, 1856, 1884, 1924, 1952, 1980, 2008, 2036, 2064, 2092, 2104, 2132, 2160, 2188, 2228, 2256, 2284, 2324, 2352, 2380, 2408, 2436, 2464, 2492, 2504, 2532, 2560, 2588, 2628, 2656, 2684, 2724, 2752, 2780, 2808, 2836, 2864, 2892, 2904, 2932
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
链接
|
|
|
MAPLE公司
|
A141287号:=程序(n)nper:=(n-1)模块14;地板((n-1)/14)*400+op(1+nper,[1760、1788、1828、1856、1884、1924、1952、1980、2008、2036、2064、2092、2104、2132]);结束过程:seq(A141287号(n) ,n=1..80)#R.J.马塔尔2010年1月25日
|
|
数学
|
(*首先做*)需要[“日历`”](*然后*)fQ[y_]:=模式[y,4]==0&&Mod[y,400]=0&&DayOfWeek[{y,2,1}]=周五;选择[Range[1750,3051],fQ@#&](*罗伯特·威尔逊v2010年6月11日*)
(*第二个程序,需要Mma版本>=9.0*)
okQ[y]:=模式[y,4]==0&&DayCount[{y,1,31},DatePlus[{y、3,1},-1],星期五]==5;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1768, 1796, 1808, 1836, 1864, 1892, 1904, 1932, 1960, 1988, 2016, 2044, 2072, 2112, 2140, 2168, 2196, 2208, 2236, 2264, 2292, 2304, 2332, 2360, 2388, 2416, 2444, 2472, 2512, 2540, 2568, 2596, 2608, 2636, 2664, 2692, 2704, 2732, 2760, 2788, 2816, 2844, 2872, 2912, 2940, 2968, 2996, 3008, 3036
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
链接
|
|
|
数学
|
(*首先做*)需要[“日历`”](*然后*)fQ[y_]:=模式[y,4]==0&&Mod[y,400]=0&&DayOfWeek[{y,2,1}]==星期一;选择[Range[1750,3051],fQ@#&](*罗伯特·威尔逊v2010年6月11日*)
选择[Range[1768,3036,4],LeapYearQ[{#}]&DayName[{#,2,1}]==星期一&](*哈维·P·戴尔2017年8月1日*)
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1756, 1784, 1824, 1852, 1880, 1920, 1948, 1976, 2004, 2032, 2060, 2088, 2128, 2156, 2184, 2224, 2252, 2280, 2320, 2348, 2376, 2404, 2432, 2460, 2488, 2528, 2556, 2584, 2624, 2652, 2680, 2720, 2748, 2776, 2804, 2832, 2860, 2888, 2928, 2956, 2984, 3024
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
评论
|
“自1582年罗马天主教国家和1752年英语国家开始在西方世界使用公历。公历每年计算闰年,可被4整除,但不可被400整除的世纪除外,这些世纪不是闰年。”
因为公历一周中的几天每隔400年重复一次,所以这一序列的第一个差异是周期13:[28、40、28、28、40、28,28、28,28,40、28]-纳撒尼尔·约翰斯顿,2011年5月30日
|
|
参考文献
|
George G.Szpiro,《数字的秘密生活,关于数学家如何工作和思考的50个简单片段》,Joseph Henry出版社,华盛顿特区,2006年,第一章,“跳跃的闰年”,第3-5页。
|
|
链接
|
|
|
MAPLE公司
|
A119406年:=进程(n)本地s:s:=[0,28,68,96,124,164,192,220,248,276,304,332,372]:返回1756+400*层((n-1)/13)+s[(n-1,mod 13)+1]:结束:seq(A119406年(n) ,n=1..42)#纳撒尼尔·约翰斯顿,2011年5月30日
|
|
数学
|
(*先做*)需要[“杂项`Calendar`”](*然后*)fQ[y_]:=Mod[y,4]=0&&Mod[y,400]?0&&DayOfWeek[{y,2,1}]=周日;选择[Range[1582,3051],fQ@#&]
(*第二个程序,需要Mma版本>=9.0*)
okQ[y]:=模式[y,4]==0&&DayCount[{y,1,31},DatePlus[{y、3,1},-1],周日]==5;
|
|
交叉参考
|
|
|
关键词
|
非n,容易的
|
|
作者
|
George G.Szpiro(乔治(AT)netvision.net.il)和罗伯特·威尔逊v2006年7月5日
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1764, 1792, 1804, 1832, 1860, 1888, 1928, 1956, 1984, 2012, 2040, 2068, 2096, 2108, 2136, 2164, 2192, 2204, 2232, 2260, 2288, 2328, 2356, 2384, 2412, 2440, 2468, 2496, 2508, 2536, 2564, 2592, 2604, 2632, 2660, 2688, 2728, 2756, 2784, 2812, 2840, 2868, 2896, 2908, 2936, 2964, 2992, 3004, 3032
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
链接
|
|
|
MAPLE公司
|
A141039号:=程序(n)nper:=(n-1)模块13;地板((n-1)/13)*400+op(1+nper,[1764,1792,1832,1860,1888,1928,1956,1984,2012,2040,2068,2096,2136]);结束过程:seq(A141039号(n) ,n=1..80)#R.J.马塔尔2010年3月29日
|
|
数学
|
(*需要Mma版本>=9.0*)
okQ[y_]:=LeapYearQ[{y}]&&DayName[{y,2,1}]==星期三;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1752, 1780, 1820, 1848, 1876, 1916, 1944, 1972, 2000, 2028, 2056, 2084, 2124, 2152, 2180, 2220, 2248, 2276, 2316, 2344, 2372, 2400, 2428, 2456, 2484, 2524, 2552, 2580, 2620, 2648, 2676, 2716, 2744, 2772, 2800, 2828, 2856, 2884, 2924, 2952, 2980, 3020, 3048
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
链接
|
|
|
MAPLE公司
|
A143994号:=程序(n)nper:=(n-1)模块13;楼层((n-1)/13)*400+op(1+nper,[1780、1820、1848、1876、1916、1944、1972、2000、2028、2056、2084、2124、2152]);结束过程:seq(A143994号(n) ,n=1..80)#R.J.马塔尔2010年3月29日
|
|
数学
|
(*需要Mma版本>=9.0*)
okQ[y_]:=LeapYearQ[{y}]&&DayName[{y,2,1}]==星期二;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1772, 1812, 1840, 1868, 1896, 1908, 1936, 1964, 1992, 2020, 2048, 2076, 2116, 2144, 2172, 2212, 2240, 2268, 2296, 2308, 2336, 2364, 2392, 2420, 2448, 2476, 2516, 2544, 2572, 2612, 2640, 2668, 2696, 2708, 2736, 2764, 2792, 2820, 2848, 2876, 2916, 2944, 2972, 3012, 3040
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1,1
|
|
链接
|
|
|
数学
|
(*需要Mma版本>=9.0*)
okQ[y_]:=LeapYearQ[{y}]&&DayName[{y,2,1}]==周六;
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A174431号
|
| 一周中的某一天在2月份出现5次,如果不存在,则为0(1到7是星期日到星期六)。 |
|
+10 0
|
|
|
0, 0, 0, 1, 0, 0, 0, 6, 0, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 7, 0, 0, 0, 5, 0, 0, 0, 3, 0, 0, 0, 1, 0, 0, 0, 6, 0, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 7, 0, 0, 0, 5, 0, 0, 0, 3, 0, 0, 0, 1, 0, 0, 0, 6, 0, 0, 0, 4, 0, 0, 0, 2, 0, 0, 0, 7
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
偏移
|
1753,8
|
|
链接
|
|
|
例子
|
a(1756)=1,因为1756年2月有5个星期日。
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
扩展
|
a(1827)-a(1840)来自王金源2021年6月19日
|
|
状态
|
经核准的
|
|
|
搜索在0.007秒内完成
|