CountingPrimes, NumberofOnes