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

Links

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

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

Crossrefs

Sequence in context: A274185 A161162 A211000 * A025637 A195826 A331478

Adjacent sequences: A025633 A025634 A025635 * A025637 A025638 A025639

Keyword

nonn

Author

David W. Wilson

Status

approved