A224949 Leap years having 53 Thursdays and Fridays.
1604, 1632, 1660, 1688, 1728, 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
Offset: 1
Keywords
Links
- Time and Date, The Gregorian calendar
- Time and Date, 2004
- 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] == Thursday && DaysBetween[{#, 1, 1}, {# + 1, 1, 1}, Calendar -> Gregorian] == 366 &, 50] (* T. D. Noe, Apr 22 2013 *) Select[Range[1583,3000],LeapYearQ[{#}]&&DayName[{#,1,1}]==Thursday&] (* Ray Chandler, Jul 26 2023, v9 or later, after Harvey P.Dale at A224945 *)
Comments