%I #11 Feb 06 2020 07:15:16
%S 0,1,0,2,1,0,3,2,1,4,0,3,2,5,1,4,0,3,6,2,5,1,4,7,0,3,6,2,5,8,1,4,7,0,
%T 3,6,9,2,5,8,1,4,7,10,0,3,6,9,2,5,8,11,1,4,7,10,0,3,6,9,12,2,5,8,11,1,
%U 4,7,10,13,0,3,6,9,12,2,5,8,11,14,1,4,7,10,13,0,3,6,9,12,15,2,5,8,11,14,1,4,7
%N Exponent of 3 (value of i) in n-th number of form 3^i*5^j.
%H Amiram Eldar, <a href="/A022336/b022336.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A007949(A003593(n)) = A112754(n) - A022337(n). - _Reinhard Zumkeller_, Sep 18 2005
%t s = {}; m = 12; Do[n = 5^k; While[n <= 5^m, AppendTo[s, n]; n *= 3], {k, 0, m}]; IntegerExponent[#, 3] & /@ Union[s] (* _Amiram Eldar_, Feb 06 2020 *)
%Y Cf. A003593, A007949, A022329, A022337, A112754, A112761.
%K nonn
%O 1,4
%A _Clark Kimberling_
|