A115417 Dates of Sundays starting from Jan 01 2001.

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, 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, 30, 6, 13, 20, 27, 3, 10, 17, 24, 3, 10, 17, 24, 31, 7, 14, 21, 28, 5

Offset: 1

Author

Jose A. Ruperez (josea(AT)ruperez.com), Mar 08 2006

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001356, A051121.

Programs

Maple

# this requires Maple 2018 or later
with(Calendar):
d:= Date(2001,1,7):
R:=7:
for i from 2 to 100 do
  d:= AdjustDateField(d,"date",7);
  R:= R, DayOfMonth(d);
od:
R; # Robert Israel, Dec 30 2024

Mathematica

NestList[DatePlus[#,7]&,{2001,1,7},100][[All,3]] (* Harvey P. Dale, May 09 2021 *)

Extensions

Corrected by Harvey P. Dale, May 09 2021