A224946 Leap years having 53 Mondays and Tuesdays.
1596, 1624, 1652, 1680, 1720, 1748, 1776, 1816, 1844, 1872, 1912, 1940, 1968, 1996, 2024, 2052, 2080, 2120, 2148, 2176, 2216, 2244, 2272, 2312, 2340, 2368, 2396, 2424, 2452, 2480, 2520, 2548, 2576, 2616, 2644, 2672, 2712, 2740, 2768, 2796
Offset: 1
Keywords
Links
- Time and Date, The Gregorian calendar
- Time and Date, 1996
- Wikipedia, Gregorian calendar
- Index entries for sequences related to calendars
- Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
Programs
-
Mathematica
Needs["Calendar`"]; Select[Range[1583, 2800], DayOfWeek[{#, 1, 1}, Calendar -> Gregorian] == Monday && DaysBetween[{#, 1, 1}, {# + 1, 1, 1}, Calendar -> Gregorian] == 366 &, 50] (* T. D. Noe, Apr 22 2013 *) Select[Range[1583,3000],LeapYearQ[{#}]&&DayName[{#,1,1}]==Monday&] (* Ray Chandler, Jul 26 2023, v9 or later, after Harvey P.Dale at A224945 *)
Comments