cp's OEIS Frontend

A025636 Exponent of 2 (value of i) in n-th number of form 2^i*6^j.

%I A025636 #12 Jul 06 2025 10:12:48
%S A025636 0,1,2,0,3,1,4,2,5,0,3,6,1,4,7,2,5,0,8,3,6,1,9,4,7,2,10,5,0,8,3,11,6,
%T A025636 1,9,4,12,7,2,10,5,0,13,8,3,11,6,1,14,9,4,12,7,2,15,10,5,0,13,8,3,16,
%U A025636 11,6,1,14,9,4,17,12,7,2,15,10,5,18,0,13,8,3,16,11,6,19,1,14,9,4,17,12,7,20,2
%N A025636 Exponent of 2 (value of i) in n-th number of form 2^i*6^j.
%H A025636 Robert Israel, <a href="/A025636/b025636.txt">Table of n, a(n) for n = 1..10000</a>
%p A025636 with(priqueue):
%p A025636 initialize(pq):
%p A025636 insert([-1,0,0],pq):
%p A025636 R:= NULL:
%p A025636 for count from 1 to 100 do
%p A025636   t:= extract(pq);
%p A025636   R:= R, t[2];
%p A025636   insert([t[1]*2,t[2]+1,t[3]],pq);
%p A025636   if t[2] = 0 then insert([t[1]*6,0,t[3]+1],pq) fi;
%p A025636 od:
%p A025636 R; # _Robert Israel_, Sep 27 2024
%Y A025636 Cf. A025610.
%K A025636 nonn
%O A025636 1,3
%A A025636 _David W. Wilson_