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