%I #12 Dec 05 2019 10:20:07
%S 0,1,1,2,2,2,2,3,2,3,2,3,3,3,3,3,3,4,2,3,3,3,3,4,4,3,3,4,4,3,3,4,4,3,
%T 3,4,3,3,4,4,3,3,4,4,5,4,4,4,3,3,4,4,3,2,4,4,4,4,3,4,3,4,4,5,4,4,4,3,
%U 4,3,4,4,5,4,4,4,4,4,4,5,3,4,5,4,5,5,4,5,4,4,4,5,4,4,5,4,4,3,5,5,4,4,5,4,4
%N Number of distinct prime divisors of n-th balanced number.
%H Amiram Eldar, <a href="/A078120/b078120.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A001221(A020492(n)).
%e The 575th balanced number is 2089542 = 2*3*7*13*43*89, so a(575)=6; sigma(2089542)/phi(2089542) = 10.
%t PrimeNu /@ Select[Range[10^5], Divisible[DivisorSigma[1, #], EulerPhi[#]] &] (* _Amiram Eldar_, Dec 05 2019 *)
%Y Cf. A020492, A001221.
%K nonn
%O 1,4
%A _Labos Elemer_, Dec 06 2002