A074594 Number of distinct prime factors of numbers that are not prime powers.

2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 3, 2, 2, 3, 2, 2, 3, 2, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 3, 3, 2, 2, 2, 2, 3, 3, 2, 2, 2, 2, 2, 2, 2, 2, 3, 2, 2, 3, 2

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Formula

a(n) = A001221(A024619(n)).

Mathematica

PrimeNu/@Select[Range[2, 300], !PrimePowerQ[#]&] (* Harvey P. Dale, Nov 18 2018 *)

Crossrefs

Cf. A074595, A074592, A074593.

Sequence in context: A090620 A151659 A057467 * A211667 A001069 A156877

Adjacent sequences: A074591 A074592 A074593 * A074595 A074596 A074597

Keyword

nonn

Author

Reinhard Zumkeller, Aug 25 2002

Status

approved