login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A141039 Years in which there are five Wednesdays in the month of February. 8

%I #21 Jul 26 2023 20:34:09

%S 1764,1792,1804,1832,1860,1888,1928,1956,1984,2012,2040,2068,2096,

%T 2108,2136,2164,2192,2204,2232,2260,2288,2328,2356,2384,2412,2440,

%U 2468,2496,2508,2536,2564,2592,2604,2632,2660,2688,2728,2756,2784,2812,2840,2868,2896,2908,2936,2964,2992,3004,3032

%N Years in which there are five Wednesdays 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).

%p A141039 := proc(n) nper := (n-1) mod 13 ; floor((n-1)/13)*400+op(1+nper , [1764,1792,1832,1860,1888,1928,1956,1984,2012,2040,2068,2096,2136] ) ; end proc: seq(A141039(n), n=1..80) ; # _R. J. Mathar_, Mar 29 2010

%t (* Needs Mma version >= 9.0 *)

%t okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Wednesday;

%t Select[Range[1752, 3051, 4], okQ] (* _Jean-François Alcover_, Mar 27 2020 *)

%Y Cf. A119406 (Sun), A135795 (Mon), A143994 (Tue), A143995 (Thu), A141287 (Fri), A176478 (Sat).

%K nonn

%O 1,1

%A _J. Lowell_, Jul 30 2008

%E More terms from _R. J. Mathar_, Mar 29 2010

%E Missing terms inserted by _Jean-François Alcover_, Mar 27 2020

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 10:59 EDT 2024. Contains 371277 sequences. (Running on oeis4.)