cp's OEIS Frontend

A190653 Years with exactly three "Friday the 13ths", starting from 1901.

%I A190653 #21 Feb 16 2025 08:33:14
%S A190653 1903,1914,1925,1928,1931,1942,1953,1956,1959,1970,1981,1984,1987,
%T A190653 1998,2009,2012,2015,2026,2037,2040,2043,2054,2065,2068,2071,2082,
%U A190653 2093,2096,2099,2105,2108,2111,2122,2133,2136,2139,2150,2161,2164,2167,2178,2189,2192
%N A190653 Years with exactly three "Friday the 13ths", starting from 1901.
%H A190653 Reinhard Zumkeller, <a href="/A190653/b190653.txt">Table of n, a(n) for n = 1..1000</a>
%H A190653 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/Triskaidekaphobia.html">Triskaidekaphobia</a>
%H A190653 Wikipedia, <a href="http://en.wikipedia.org/wiki/Triskaidekaphobia">Triskaidekaphobia</a>
%H A190653 <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%F A190653 A101312(a(n)) = 3, 1 <= A101312(n) <= 3.
%e A190653 2012 is a term, since only Jan 13 2012, Apr 13 2012 and Jul 13 2012 fell on Fridays.
%t A190653 Module[{mos={#[[1]],Length[#]}&/@(Flatten[Take[#,1]&/@DateSelect[ DateRange[ {1900,1,1},{2200,12,1}],#Day==13&&#DayName== Friday&]]// Split)},Select[ mos,#[[2]]>2&][[All,1]]] (* Requires Mathematica version 12 or later *) (* _Harvey P. Dale_, Jan 17 2021 *)
%o A190653 (Haskell)
%o A190653 a190653 n = a190653_list !! (n-1)
%o A190653 a190653_list = filter ((== 3) . a101312) [1901..]
%o A190653 (Python)
%o A190653 from datetime import date
%o A190653 def ok(n): return sum(date.isoweekday(date(n, m, 13)) == 5 for m in range(1, 13)) == 3
%o A190653 print(list(filter(ok, range(1901, 2193)))) # _Michael S. Branicky_, Sep 12 2021
%Y A190653 Cf. A101312, A190651, A190652.
%K A190653 nonn
%O A190653 1,1
%A A190653 _Reinhard Zumkeller_, May 16 2011