A051121 Dates at fortnightly intervals starting on Jan 01 of a leap year in the Julian calendar.
1, 15, 29, 12, 26, 11, 25, 8, 22, 6, 20, 3, 17, 1, 15, 29, 12, 26, 9, 23, 7, 21, 4, 18, 2, 16, 30, 13, 27, 10, 24, 10, 24, 7, 21, 5, 19, 2, 16, 30, 14, 28, 11, 25, 8, 22, 6, 20, 3, 17, 1, 15, 29, 12, 26, 9, 23, 9, 23, 6, 20, 4, 18, 1, 15, 29, 13, 27, 10, 24, 7, 21, 5, 19, 2, 16, 30
Offset: 1
Links
Crossrefs
Cf. A001356.
Programs
-
Mathematica
(* First program no longer functions in current Mathematica versions *) Needs["Calendar`"] Table[ DaysPlus[{4, 1, 1}, 14 n][[3]], {n, 0, 76}] (* Robert G. Wilson v, Apr 18 2010 *) Table[DateValue[DayPlus[{2009, 1}, 14 n, CalendarType->"Julian"], "Day"], {n, 0, 77}] (* Michael De Vlieger, Mar 26 2017, Version 10, after Giovanni Resta at A001356; amended, Ray Chandler, Aug 07 2023 *)
Extensions
Name edited by Charles R Greathouse IV, Mar 27 2017
Comments