m |
m |
||
Line 18: | Line 18: | ||
|list11=[[2000]]{{*}}[[2001]]{{*}}[[2002]]{{*}}[[2003]]{{*}}[[2004]]{{*}}[[2005]]{{*}}[[2006]]{{*}}[[2007]]{{*}}[[2008]]{{*}}[[2009]] | |list11=[[2000]]{{*}}[[2001]]{{*}}[[2002]]{{*}}[[2003]]{{*}}[[2004]]{{*}}[[2005]]{{*}}[[2006]]{{*}}[[2007]]{{*}}[[2008]]{{*}}[[2009]] | ||
|list12=[[2010]]{{*}}[[2011]]{{*}}[[2012]]{{*}}[[2013]]{{*}}[[2014]]{{*}}[[2015]]{{*}}[[2016]]{{*}}[[2017]]{{*}}[[2018]]{{*}}[[2019]] | |list12=[[2010]]{{*}}[[2011]]{{*}}[[2012]]{{*}}[[2013]]{{*}}[[2014]]{{*}}[[2015]]{{*}}[[2016]]{{*}}[[2017]]{{*}}[[2018]]{{*}}[[2019]] | ||
+ | |list14=[[2020]]{{*}}[[2021]]{{*}}[[2022]]{{*}}[[2023]]{{*}}[[2024]]{{*}}[[2025]]{{*}}[[2026]]{{*}}[[2027]]{{*}}[[2028]]{{*}}[[2029]] | ||
+ | |list15=[[2030]]{{*}}[[2031]]{{*}}[[2032]]{{*}}[[2033]]{{*}}[[2034]]{{*}}[[2035]]{{*}}[[2036]]{{*}}[[2037]]{{*}}[[2038]]{{*}}[[2039]] | ||
}} | }} | ||
|
Generated using this Mathematica code (here for the 18th century):
StringJoin @@ Table[If[Mod[i, 10] == 9, "[[" <> ToString[i] <> "]]\n |list" <> ToString[Evaluate[Round[(i - 1700)/10.] + 1]] <> "=", "[[" <> ToString[i] <> "]]{{*}}"], {i, 1700, 1799}]