%I #26 Aug 07 2023 01:17:53

%S 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,

%T 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,

%U 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

%N Dates at fortnightly intervals starting on Jan 01 of a leap year in the Julian calendar.

%C Periodic sequence with period 1461. - _John Cerkan_, Mar 26 2017

%H John Cerkan, <a href="/A051121/b051121.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>

%t (* First program no longer functions in current Mathematica versions *)

%t Needs["Calendar`"]

%t Table[ DaysPlus[{4, 1, 1}, 14 n][[3]], {n, 0, 76}] (* _Robert G. Wilson v_, Apr 18 2010 *)

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

%Y Cf. A001356.

%K easy,nonn

%O 1,2

%A Karen Richardson (s1149414(AT)cedarville.edu)

%E Name edited by _Charles R Greathouse IV_, Mar 27 2017