%I #21 Jul 26 2023 20:29:09
%S 1768,1796,1808,1836,1864,1892,1904,1932,1960,1988,2016,2044,2072,
%T 2112,2140,2168,2196,2208,2236,2264,2292,2304,2332,2360,2388,2416,
%U 2444,2472,2512,2540,2568,2596,2608,2636,2664,2692,2704,2732,2760,2788,2816,2844,2872,2912,2940,2968,2996,3008,3036
%N Years in which there are five Mondays in the month of February.
%H <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%H <a href="/index/Rec#order_16">Index entries for linear recurrences with constant coefficients</a>, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, -1).
%t (* First do *) Needs["Calendar`"] (* then *) fQ[y_] := Mod[y, 4] == 0 && Mod[y, 400]!=0 && DayOfWeek[{y, 2, 1}] == Monday; Select[Range[1750, 3051], fQ@# &] (* _Robert G. Wilson v_, Jun 11 2010 *)
%t Select[Range[1768,3036,4],LeapYearQ[{#}]&& DayName[{#,2,1}]==Monday&] (* _Harvey P. Dale_, Aug 01 2017 *)
%Y Cf. A119406 (Sun), A143994 (Tue), A141039 (Wed), A143995 (Thu), A141287 (Fri), A176478 (Sat).
%K nonn
%O 1,1
%A _J. Lowell_, Mar 03 2008
%E More terms from _R. J. Mathar_, Mar 29 2010
%E Corrected by _Harvey P. Dale_, Aug 01 2017