login
A224945
Leap years having 53 Sundays and Mondays.
7
1584, 1612, 1640, 1668, 1696, 1708, 1736, 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
OFFSET
1,1
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.
15 occurrences in 400 years.
Months having Friday the 13th: January, April and July.
February 29th falls on Wednesday.
366 day leap year: 53 Sundays, 53 Mondays, 52 Tuesdays, 52 Wednesdays, 52 Thursdays, 52 Fridays, 52 Saturdays.
FORMULA
G.f.: x*(1584 + 28*x + 28*x^2 + 28*x^3 + 28*x^4 + 12*x^5 + 28*x^6 + 28*x^7 + 28*x^8 + 12*x^9 + 28*x^10 + 28*x^11 + 28*x^12 + 40*x^13 + 28*x^14 - 1556*x^15)/(1 - x - x^15 + x^16). - Charles R Greathouse IV, May 15 2026
MATHEMATICA
Needs["Calendar`"]; Select[Range[1583, 2800], DayOfWeek[{#, 1, 1}, Calendar -> Gregorian] == Sunday && DaysBetween[{#, 1, 1}, {# + 1, 1, 1}, Calendar -> Gregorian] == 366 &, 50] (* T. D. Noe, Apr 22 2013 *)
Select[Range[1583, 3000], LeapYearQ[{#}]&&DayName[{#, 1, 1}]==Sunday&] (* Harvey P. Dale, Jul 04 2018, v9 or later *)
PROG
(PARI) a(n)=1584+((n-1)\15)*400+[372, 0, 28, 56, 84, 112, 124, 152, 180, 208, 220, 248, 276, 304, 344][n%15+1] \\ Charles R Greathouse IV, May 15 2026
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Aswini Vaidyanathan, Apr 21 2013
STATUS
approved