|
Search: id:A061251
|
|
|
| A061251 |
|
Days in year to end of n-th month starting Jan 01 in a year just following a leap year or millennium. |
|
+0
4
|
|
| 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365, 396, 424, 455, 485, 516, 546, 577, 608, 638, 669, 699, 730, 761, 789, 820, 850, 881, 911, 942, 973, 1003, 1034, 1064, 1095, 1126, 1155, 1186, 1216, 1247, 1277, 1308, 1339, 1369, 1400, 1430, 1461
(list; graph; listen)
|
|
|
OFFSET
|
0,2
|
|
|
COMMENT
|
y1=2001 y2=2004 in the Pari code.
|
|
PROGRAM
|
(PARI) dom(y1, y2) = \ days of the year { local(x, y, m, s=0); m=ml=vector(12); m[1]=31; m[2]=28; m[3]=31; m[4]=30; 31; m[5]=31; m[6]=30; m[7]=31; m[8]=31; m[9]=30; m[10]=31; m[11]=30; m[12]=31; for(y=y1, y2, for(x=1, 12, s+=m[x]; if(x==2, if(y%4==0, s++); \May be leap year if year div by 4 if(floor(y/100)%4 & y%100==0, s--); \Adjust if century mod(4)<>0 ); print1(s", ") ) ) } (Cino Hilliard (hillcino368(AT)gmail.com), Mar 29 2005)
|
|
CROSSREFS
|
Partial sums of A008685.
Adjacent sequences: A061248 A061249 A061250 this_sequence A061252 A061253 A061254
Sequence in context: A092227 A096453 A109356 this_sequence A039350 A043173 A043953
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Jun 03 2001
|
|
|
Search completed in 0.002 seconds
|
