« first day (1915 days earlier)      last day (2157 days later) » 

13:15
ListPlot[MangoldtLambda[Range[42]], Filling -> Axis]
MangoldtLambda[Range[42]]
{0, Log[2], Log[3], Log[2], Log[5], 0, Log[7], Log[2], Log[3], 0,
Log[11], 0, Log[13], 0, 0, Log[2], Log[17], 0, Log[19], 0, 0, 0,
Log[23], 0, Log[5], 0, Log[3], 0, Log[29], 0, Log[31],
Log[2], 0, 0, 0, 0, Log[37], 0, 0, 0, Log[41], 0}
This was plotted in Mathematica.

« first day (1915 days earlier)      last day (2157 days later) »