%I #15 Nov 01 2013 03:31:42
%S 1,1,2,1,2,1,3,2,1,3,2,4,1,3,2,4,1,3,5,2,4,1,3,5,2,4,6,1,3,5,2,4,6,1,
%T 3,5,7,2,4,6,1,3,5,7,2,4,6,1,8,3,5,7,2,4,6,1,8,3,5,7,2,9,4,6,1,8,3,5,
%U 7,2,9,4,6,1,8,3,10,5,7,2,9,4,6,1,8,3
%N Values of j of the numbers 2^i*3^j (A033845).
%C Not the same as A134583.
%H Zak Seidov, <a href="/A191476/b191476.txt">Table of n, a(n) for n = 1..10000</a>
%e a(10) = 3 because A033845(10) = 108 = 2^2*3^3.
%e a(100) = 7 because A033845(100) = 59872 = 2^8*3^7.
%e a(1000) = 1 because A033845(1000) = 216172782113783808 = 2^56*3^1.
%t mx = 1000000; t = Select[Sort[Flatten[Table[2^i 3^j, {i, Log[2, mx]}, {j, Log[3, mx]}]]], # <= mx &]; Table[FactorInteger[i][[2, 2]], {i, t}] (* _T. D. Noe_, Aug 31 2012 *)
%Y Cf. A033845 (numbers 2^i*3^j), A191475 (values of i), A134583.
%K nonn
%O 1,3
%A _Zak Seidov_, Aug 30 2012
|