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.
%I A141039 #21 Jul 26 2023 20:34:09
%S A141039 1764,1792,1804,1832,1860,1888,1928,1956,1984,2012,2040,2068,2096,
%T A141039 2108,2136,2164,2192,2204,2232,2260,2288,2328,2356,2384,2412,2440,
%U A141039 2468,2496,2508,2536,2564,2592,2604,2632,2660,2688,2728,2756,2784,2812,2840,2868,2896,2908,2936,2964,2992,3004,3032
%N A141039 Years in which there are five Wednesdays in the month of February.
%H A141039 <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%H A141039 <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 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 A141039 (* Needs Mma version >= 9.0 *)
%t A141039 okQ[y_] := LeapYearQ[{y}] && DayName[{y, 2, 1}] == Wednesday;
%t A141039 Select[Range[1752, 3051, 4], okQ] (* _Jean-François Alcover_, Mar 27 2020 *)
%Y A141039 Cf. A119406 (Sun), A135795 (Mon), A143994 (Tue), A143995 (Thu), A141287 (Fri), A176478 (Sat).
%K A141039 nonn
%O A141039 1,1
%A A141039 _J. Lowell_, Jul 30 2008
%E A141039 More terms from _R. J. Mathar_, Mar 29 2010
%E A141039 Missing terms inserted by _Jean-François Alcover_, Mar 27 2020