A022337 - OEIS

%I #12 Feb 06 2020 07:17:28

%S 0,0,1,0,1,2,0,1,2,0,3,1,2,0,3,1,4,2,0,3,1,4,2,0,5,3,1,4,2,0,5,3,1,6,

%T 4,2,0,5,3,1,6,4,2,0,7,5,3,1,6,4,2,0,7,5,3,1,8,6,4,2,0,7,5,3,1,8,6,4,

%U 2,0,9,7,5,3,1,8,6,4,2,0,9,7,5,3,1,10,8,6,4,2,0,9,7,5,3,1,10,8,6,4,2,0,11,9,7,5

%N Exponent of 5 (value of j) in n-th number of form 3^i*5^j.

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

%F a(n) = A112765(A003593(n)) = A112754(n) - A022336(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[#, 5] & /@ Union[s] (* _Amiram Eldar_, Feb 06 2020 *)

%Y Cf. A003593, A022336, A112754, A112762, A112765.

%K nonn

%O 1,6

%A _Clark Kimberling_