|
|
A224941
|
|
Non-leap years beginning and ending on Wednesday.
|
|
6
|
|
|
1586, 1597, 1603, 1614, 1625, 1631, 1642, 1653, 1659, 1670, 1681, 1687, 1698, 1710, 1721, 1727, 1738, 1749, 1755, 1766, 1777, 1783, 1794, 1800, 1806, 1817, 1823, 1834, 1845, 1851, 1862, 1873, 1879, 1890, 1902, 1913, 1919, 1930, 1941, 1947, 1958, 1969, 1975, 1986, 1997
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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.
43 occurrences in 400 years.
Months having Friday the 13th: June.
365 day ordinary year: 52 Sundays, 52 Mondays, 52 Tuesdays, 53 Wednesdays, 52 Thursdays, 52 Fridays, 52 Saturdays.
|
|
LINKS
|
Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
|
|
MATHEMATICA
|
Select[Range[1583, 2600], DayOfWeek[{#, 1, 1}, Calendar -> Gregorian] == Wednesday && DaysBetween[{#, 1, 1}, {# + 1, 1, 1}, Calendar -> Gregorian] == 365 &, 50] (* T. D. Noe, Apr 22 2013 *)
Select[Range[1583, 2500], !LeapYearQ[{#}]&&DayName[{#, 1, 1}]==DayName[{#, 12, 31}]==Wednesday&](* Ray Chandler, Jul 26 2023, Version 10, after _Harvey P.Dale_ at A224942 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|