%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