%I #34 May 26 2024 21:09:19
%S 0,0,1,0,1,0,2,1,0,2,1,3,0,2,1,3,0,2,4,1,3,0,2,4,1,3,5,0,2,4,1,3,5,0,
%T 2,4,6,1,3,5,0,2,4,6,1,3,5,0,7,2,4,6,1,3,5,0,7,2,4,6,1,8,3,5,0,7,2,4,
%U 6,1,8,3,5,0,7,2,9,4,6,1,8,3,5,0,7,2,9,4,6,1,8,3,10,5,0,7,2,9,4,6,1,8,3,10,5,0,7
%N Exponent of 3 (value of j) in n-th number of form 2^i*3^j (see A003586).
%H Reinhard Zumkeller, <a href="/A022329/b022329.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from Franklin T. Adams-Watters)
%F a(n) = A069352(n) - A022328(n). - _Reinhard Zumkeller_, May 16 2015
%F A003586(n) = 2^A022328(n) * 3^a(n). - _N. J. A. Sloane_, Mar 19 2009
%F a(n) = A191476(n) - 1. - _Franklin T. Adams-Watters_, Mar 19 2009
%t IntegerExponent[Select[Range[10^5], # == 2^IntegerExponent[#, 2] * 3^IntegerExponent[#, 3] &], 3] (* _Amiram Eldar_, Apr 15 2024 *)
%o (Haskell)
%o a022329 n = a022329_list !! (n-1)
%o -- Where a022329_list is defined in A022328.
%o -- _Reinhard Zumkeller_, Nov 19 2015, May 16 2015
%Y Cf. A003586, A022328, A191476. - _Franklin T. Adams-Watters_, Mar 19 2009
%Y Cf. A069352.
%K nonn,changed
%O 1,7
%A _Clark Kimberling_
%E Edited by _N. J. A. Sloane_, May 26 2024
|