1,2

s = 0; k = 1; Do[ While[ k <= 10^n, s = s + Length[ FactorInteger[ k ] ]; k++ ]; Print[ s ], {n, 1, 8} ]

Cf. A001221.

Sequence in context: A059091 A157944 A167245 this_sequence A139792 A025758 A141955

Adjacent sequences: A064179 A064180 A064181 this_sequence A064183 A064184 A064185

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 20 2001