A008684 Dates of successive days in Gregorian calendar.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16

Offset: 1

Author

N. J. A. Sloane

Keywords

• nonn
• nice
• fini
• full

Comments

Starting with January and assuming not a leap year. - Harvey P. Dale, Sep 24 2012

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..365
• Index entries for sequences related to calendars

Programs

Haskell

a008684 n = a008684_list !! (n-1)
a008684_list = concatMap (enumFromTo 1)
                         [31,28,31,30,31,30,31,31,30,31,30,31]
-- Reinhard Zumkeller, Jun 23 2013

Mathematica

Needs["Calendar`"]; Transpose[Table[DaysPlus[{2014,1,1},n],{n,0,364}]][[3]] (* Harvey P. Dale, Apr 26 2014 *)
DateRange[{2021,1,1},{2021,12,31}][[All,3]] (* Harvey P. Dale, Mar 03 2022 *)