login
A135795
Years in which there are five Mondays in the month of February.
10
1768, 1796, 1808, 1836, 1864, 1892, 1904, 1932, 1960, 1988, 2016, 2044, 2072, 2112, 2140, 2168, 2196, 2208, 2236, 2264, 2292, 2304, 2332, 2360, 2388, 2416, 2444, 2472, 2512, 2540, 2568, 2596, 2608, 2636, 2664, 2692, 2704, 2732, 2760, 2788, 2816, 2844, 2872, 2912, 2940, 2968, 2996, 3008, 3036
OFFSET
1,1
MATHEMATICA
(* 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 *)
Select[Range[1768, 3036, 4], LeapYearQ[{#}]&& DayName[{#, 2, 1}]==Monday&] (* Harvey P. Dale, Aug 01 2017 *)
CROSSREFS
Cf. A119406 (Sun), A143994 (Tue), A141039 (Wed), A143995 (Thu), A141287 (Fri), A176478 (Sat).
Sequence in context: A031762 A031672 A031540 * A206201 A237900 A221118
KEYWORD
nonn
AUTHOR
J. Lowell, Mar 03 2008
EXTENSIONS
More terms from R. J. Mathar, Mar 29 2010
Corrected by Harvey P. Dale, Aug 01 2017
STATUS
approved