|
%I #25 Oct 27 2022 10:20:53
%S 1,3,6,5,2,3,6,5,3,3,6,5,4,3,6,6,2,9,5,3,6,5,6,3,6,5,7,3,6,5,8,3,6,6,
%T 2,9,9,3,6,5,1,0,3,6,5,1,1,3,6,5,1,2,3,6,6,2,9,1,3,3,6,5,1,4,3,6,5,1,
%U 5,3,6,5,1,6,3,6,6,2,9,1,7,3,6,5,1,8,3,6,5,1,9,3,6,5,2,0,3,6,6,2,9,2,1,3,6
%N Table in which row n lists the digits of n, the digits of the number of days in year n and if n is a leap year the digits of the number of days in February of that year.
%C This sequence uses the proleptic Gregorian calendar. - _Charles R Greathouse IV_, Oct 25 2022
%e Array begins
%e [1, 3, 6, 5]
%e [2, 3, 6, 5]
%e [3, 3, 6, 5]
%e [4, 3, 6, 6, 2, 9]
%e [5, 3, 6, 5]
%e [6, 3, 6, 5]
%e [7, 3, 6, 5]
%e [8, 3, 6, 6, 2, 9]
%e [9, 3, 6, 5]
%e [1, 0, 3, 6, 5]
%e ...
%e Row 9 is 9, 3, 6, 5 as we start with the year. Then year 9 has 365 days so follow up with the digits 365 to it giving 9, 3, 6, 5 (as 9 is not a leap year we do not include the digits of the number of days in February of year 9). - _David A. Corneth_, Oct 24 2022
%o (PARI) first(n) = my(res = []); for(i = 1, oo, res = concat(res, row(i)); if(#res >= n, return(res) ) )
%o row(n) = my(res = digits(n)); if(n % 400 == 0 || (n % 100 != 0 && n % 4 == 0), res = concat(res, [3,6,6,2,9]), res = concat(res, [3,6,5]) ); res \\ _David A. Corneth_, Oct 24 2022
%Y Cf. A144189.
%K nonn,tabf,base,less
%O 1,2
%A _Juri-Stepan Gerasimov_, Nov 20 2008
%E New name from and edited by _David A. Corneth_, Oct 24 2022
|
