OFFSET
1,1
LINKS
Index entries for linear recurrences with constant coefficients, signature (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 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
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