A119406 Years in which there are five Sundays in the month of February.
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, 2804, 2832, 2860, 2888, 2928, 2956, 2984, 3024
Offset: 1
References
- George G. Szpiro, The Secret Life Of Numbers, 50 Easy Pieces On How Mathematicians Work And Think, Joseph Henry Press, Washington, D.C., 2006, Chapter 1, "Lopping Leap Years", pages 3-5.
Links
- TimeAndDate.com, A calendar website
- 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).
Crossrefs
Programs
-
Maple
A119406 := proc(n) local s: s:=[0, 28, 68, 96, 124, 164, 192, 220, 248, 276, 304, 332, 372]: return 1756 + 400*floor((n-1)/13) + s[((n-1) mod 13) + 1]: end: seq(A119406(n),n=1..42); # Nathaniel Johnston, May 30 2011
-
Mathematica
(* first do *) Needs["Miscellaneous`Calendar`"] (* then *) fQ[y_] := Mod[y, 4] == 0 && Mod[y, 400] ? 0 && DayOfWeek[{y, 2, 1}] == Sunday; Select[ Range[1582, 3051], fQ@# &] (* Second program, needing Mma version >= 9.0 *) okQ[y_] := Mod[y, 4] == 0 && DayCount[{y, 1, 31}, DatePlus[{y, 3, 1}, -1], Sunday] == 5; Select[Range[1752, 3051, 4], okQ] (* Jean-François Alcover, Mar 27 2020 *)
Comments