IntegerPart[(Exp[-Log[2] / (6 * (1 year / 30 seconds))] - 1) * 10^18]