A144189 - OEIS

%I #19 Oct 27 2022 10:19:54

%S 1,3,1,2,8,3,1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,5,2,3,1,2,8,3,

%T 1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,5,3,3,1,2,8,3,1,3,0,3,1,3,

%U 0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,5,4,3,1,2,9,3,1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3

%N Table in which row n lists the digits of n, the digits of the number of days in each month of year n and the digits of the number of days in year n.

%C Old name was: (1(31+28(february)+31+30+31+30+31+31+30+31+30+31=365), 2(31+28(february)+31+..) becomes (1, 3, 1, 2, 8, 3, 1, 3, 0, 3, 1, 3, 0, 3, 1, 3, 1, 3, 0, 3, 1, 3, 0, 3, 1, 3, 6, 5, 2, 3, 1, 2, 8, 3, 1,..).

%e Array begins:

%e   1,3,1,2,8,3,1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,5;

%e   2,3,1,2,8,3,1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,5;

%e   3,3,1,2,8,3,1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,5;

%e   4,3,1,2,9,3,1,3,0,3,1,3,0,3,1,3,1,3,0,3,1,3,0,3,1,3,6,6;

%e   ...

%o (PARI) row(n) = { my(res = digits(n)); if(n % 400 == 0 || (n % 100 != 0 && n % 4 == 0), res = concat(res, [3, 1, 2, 9, 3, 1, 3, 0, 3, 1, 3, 0, 3, 1, 3, 1, 3, 0, 3, 1, 3, 0, 3, 1, 3, 6, 6]), res = concat(res, [3, 1, 2, 8, 3, 1, 3, 0, 3, 1, 3, 0, 3, 1, 3, 1, 3, 0, 3, 1, 3, 0, 3, 1, 3, 6, 5]) ); res } \\ _Jianing Song_, Oct 25 2022, after _David A. Corneth_'s program for A144179

%Y Cf. A144179.

%K nonn,tabf,base,less

%O 1,2

%A _Juri-Stepan Gerasimov_, Nov 20 2008

%E a(3) = 1 inserted according to Name by _Michael De Vlieger_, Oct 25 2022

%E New name from and edited by _Jianing Song_, Oct 25 2022