|
%I #36 Apr 21 2023 15:25:43
%S 7,8,5,5,3,4,4,6,9,7,8,8,7,8,5,5,3,4,4,6,9,7,8,8,7,8,5,5,3,4,4,6,9,7,
%T 8,8,7,8,5,5,3,4,4,6,9,7,8,8,7,8,5,5,3,4,4,6,9,7,8,8,7,8,5,5,3,4,4,6,
%U 9,7,8,8
%N Number of letters in English words for months of year.
%C Period 12.
%C According to the definition this should strictly speaking be finite: there is no 13th month of the year. But for several reasons we prefer to see this as an infinite periodic sequence. - _M. F. Hasler_, Mar 05 2018
%D GCHQ, The GCHQ Puzzle Book, Penguin, 2016. See page 60.
%H Time and Date, <a href="http://www.timeanddate.com/calendar/">A Calendar website</a>
%H <a href="/index/Ca#calendar">Index entries for sequences related to calendars</a>
%H <a href="/index/Periodic#12">Index to 12-periodic sequences</a>
%e a(1) = 7 because January has 7 letters.
%t PadRight[{}, 72, {7, 8, 5, 5, 3, 4, 4, 6, 9, 7, 8, 8}] (* or *)
%t Array[StringLength@ DateString[DateObject[{0, Mod[#, 12] + 1, 1, 0, 0, 0}, "Month"], {"MonthName"}] &, 72, 0] (* _Michael De Vlieger_, Feb 25 2018 *)
%o (PARI) A031139(n)=digits(879644355878)[12-n%12] \\ _M. F. Hasler_, Mar 05 2018
%Y Cf. A089746.
%K nonn,word
%O 1,1
%A Dmitri Papichev (Dmitri.Papichev(AT)iname.com)
|
