cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A135795 Years in which there are five Mondays in the month of February.

This page as a plain text file.
%I A135795 #21 Jul 26 2023 20:29:09
%S A135795 1768,1796,1808,1836,1864,1892,1904,1932,1960,1988,2016,2044,2072,
%T A135795 2112,2140,2168,2196,2208,2236,2264,2292,2304,2332,2360,2388,2416,
%U A135795 2444,2472,2512,2540,2568,2596,2608,2636,2664,2692,2704,2732,2760,2788,2816,2844,2872,2912,2940,2968,2996,3008,3036
%N A135795 Years in which there are five Mondays in the month of February.
%H A135795 <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%H A135795 <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 A135795 (* 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 A135795 Select[Range[1768,3036,4],LeapYearQ[{#}]&& DayName[{#,2,1}]==Monday&] (* _Harvey P. Dale_, Aug 01 2017 *)
%Y A135795 Cf. A119406 (Sun), A143994 (Tue), A141039 (Wed), A143995 (Thu), A141287 (Fri), A176478 (Sat).
%K A135795 nonn
%O A135795 1,1
%A A135795 _J. Lowell_, Mar 03 2008
%E A135795 More terms from _R. J. Mathar_, Mar 29 2010
%E A135795 Corrected by _Harvey P. Dale_, Aug 01 2017