A086412 - OEIS

%I #9 Jan 29 2020 04:38:42

%S 0,1,1,1,2,1,1,2,1,2,2,1,1,2,2,2,1,2,1,2,2,1,2,2,2,2,1,1,2,2,2,2,2,1,

%T 2,2,1,2,2,2,1,2,2,2,2,2,2,1,1,2,2,2,2,2,2,1,2,2,2,2,2,1,2,2,1,2,2,2,

%U 2,2,2,2,2,1,2,2,1,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2,1,2,1,2,2,2,2,2,2,2

%N Number of distinct prime factors of 3-smooth numbers.

%H Amiram Eldar, <a href="/A086412/b086412.txt">Table of n, a(n) for n = 1..10000</a>

%F a(n) = A001221(A003586(n));

%F a(n) <= 2.

%t s = {}; m = 12; Do[n = 3^k; While[n <= 3^m, AppendTo[s, n]; n*=2], {k, 0, m}]; PrimeNu /@ Union[s] (* _Amiram Eldar_, Jan 29 2020 *)

%Y Cf. A001221, A003586, A069352, A086414.

%K nonn

%O 1,5

%A _Reinhard Zumkeller_, Jul 18 2003