%I #8 Feb 07 2020 08:31:02
%S 0,0,1,0,0,1,0,2,0,1,1,0,2,0,1,0,3,1,0,2,0,2,1,0,3,1,0,2,1,0,4,2,1,0,
%T 3,1,0,0,3,2,1,0,4,2,1,0,3,2,1,5,0,0,3,2,1,0,4,2,1,1,0,4,3,2,1,5,0,0,
%U 3,2,1,0,0,4,3,2,6,1,1,0,4,3,2,1,5,0,0,3,2,2,1,5,0,0,4,3,2,6,1,1,0,4,3,2,1
%N Exponent of 3 (value of j) in n-th number of the form 2^i*3^j*5^k.
%H Amiram Eldar, <a href="/A112761/b112761.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A007949(A051037(n));
%F a(n) = A112759(n) - A112760(n) - A112762(n).
%t IntegerExponent[#, 3] & /@ Select[Range[3000], Last @ Map[First, FactorInteger[#]] <= 5 &] (* _Amiram Eldar_, Feb 07 2020 *)
%Y Cf. A007949, A022336, A022329, A051037, A112759, A112760, A112762.
%K nonn
%O 1,8
%A _Reinhard Zumkeller_, Sep 18 2005