cp's OEIS Frontend

A115417 Dates of Sundays starting from Jan 01 2001.

%I A115417 #10 Dec 30 2024 13:17:22
%S A115417 7,14,21,28,4,11,18,25,4,11,18,25,1,8,15,22,29,6,13,20,27,3,10,17,24,
%T A115417 1,8,15,22,29,5,12,19,26,2,9,16,23,30,7,14,21,28,4,11,18,25,2,9,16,23,
%U A115417 30,6,13,20,27,3,10,17,24,3,10,17,24,31,7,14,21,28,5
%N A115417 Dates of Sundays starting from Jan 01 2001.
%H A115417 Robert Israel, <a href="/A115417/b115417.txt">Table of n, a(n) for n = 1..10000</a>
%p A115417 # this requires Maple 2018 or later
%p A115417 with(Calendar):
%p A115417 d:= Date(2001,1,7):
%p A115417 R:=7:
%p A115417 for i from 2 to 100 do
%p A115417   d:= AdjustDateField(d,"date",7);
%p A115417   R:= R, DayOfMonth(d);
%p A115417 od:
%p A115417 R; # _Robert Israel_, Dec 30 2024
%t A115417 NestList[DatePlus[#,7]&,{2001,1,7},100][[All,3]] (* _Harvey P. Dale_, May 09 2021 *)
%Y A115417 Cf. A001356, A051121.
%K A115417 nonn
%O A115417 1,1
%A A115417 Jose A. Ruperez (josea(AT)ruperez.com), Mar 08 2006
%E A115417 Corrected by _Harvey P. Dale_, May 09 2021