A224948 Leap years having 53 Wednesdays and Thursdays.

1592, 1620, 1648, 1676, 1716, 1744, 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

Offset: 1

Author

Aswini Vaidyanathan, Apr 21 2013

Keywords

• nonn

Comments

Gregorian calendar repeats after every 400 years because number of days in 400 years is 146097 which is a multiple of 7.

Non-century years are leap years if and only if they are multiples of 4 while century years are leap years if and only if they are multiples of 400.

14 occurrences in 400 years.

Months having Friday the 13th: March and November.

February 29th falls on Saturday.

366 day leap year: 52 Sundays, 52 Mondays, 52 Tuesdays, 53 Wednesdays, 53 Thursdays, 52 Fridays, 52 Saturdays.

Links

• Time and Date, The Gregorian calendar
• Time and Date, 1992
• 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, 0, 1, -1).

Crossrefs

Cf. A224945, A224946, A224947, A224949, A224950, A224951.

Programs

Mathematica

Needs["Calendar`"]; Select[Range[1583, 2800], DayOfWeek[{#, 1, 1}, Calendar -> Gregorian] == Wednesday && DaysBetween[{#, 1, 1}, {# + 1, 1, 1}, Calendar -> Gregorian] == 366 &, 50] (* T. D. Noe, Apr 22 2013 *)
Select[Range[1583,3000],LeapYearQ[{#}]&&DayName[{#,1,1}]==Wednesday&] (* Ray Chandler, Jul 26 2023, v9 or later, after Harvey P.Dale at A224945 *)