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]]
 
}}
 
}}
  

Latest revision as of 12:00, 1 January 2021


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}]