OFFSET
1,2
COMMENTS
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,..).
EXAMPLE
Array begins:
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,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,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,0,3,1,3,6,6;
...
PROG
(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
CROSSREFS
KEYWORD
nonn,tabf,base,less
AUTHOR
Juri-Stepan Gerasimov, Nov 20 2008
EXTENSIONS
a(3) = 1 inserted according to Name by Michael De Vlieger, Oct 25 2022
New name from and edited by Jianing Song, Oct 25 2022
STATUS
approved