素数年

For[i=2000, i<2020, ++i;Print[i,"=",FactorInteger[i]]]
2001 = {{3,1},{23,1},{29,1}}
2002 = {{2,1},{7,1},{11,1},{13,1}}
2003 = {{2003,1}}
2004 = {{2,2},{3,1},{167,1}}
2005 = {{5,1},{401,1}}
2006 = {{2,1},{17,1},{59,1}}
2007 = {{3,2},{223,1}}
2008 = {{2,3},{251,1}}
2009 = {{7,2},{41,1}}
2010 = {{2,1},{3,1},{5,1},{67,1}}
2011 = {{2011,1}}
2012 = {{2,2},{503,1}}
2013 = {{3,1},{11,1},{61,1}}
2014 = {{2,1},{19,1},{53,1}}
2015 = {{5,1},{13,1},{31,1}}
2016 = {{2,5},{3,2},{7,1}}
2017 = {{2017,1}}
2018 = {{2,1},{1009,1}}
2019 = {{3,1},{673,1}}
2020 = {{2,2},{5,1},{101,1}}

というわけで，2000年から2020年までで，素数なのは2003年，2011年，2017年の3回だけです．
20年間で3回しかない素数年ですので，乾杯と行きましょう．