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

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, 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, 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

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A025610.

Programs

Maple

with(priqueue):
initialize(pq):
insert([-1,0,0],pq):
R:= NULL:
for count from 1 to 100 do
  t:= extract(pq);
  R:= R, t[2];
  insert([t[1]*2,t[2]+1,t[3]],pq);
  if t[2] = 0 then insert([t[1]*6,0,t[3]+1],pq) fi;
od:
R; # Robert Israel, Sep 27 2024