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,1

Links

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

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 *)

Crossrefs

Cf. A001356, A051121.

Sequence in context: A037367 A276613 A004939 * A003330 A345773 A037985

Adjacent sequences: A115414 A115415 A115416 * A115418 A115419 A115420

Keyword

nonn

Author

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

Extensions

Corrected by Harvey P. Dale, May 09 2021

Status

approved