|
%I #11 Jan 12 2021 18:04:03
%S 1,2,3,5,7,9,12,15,19,23,27,32,37,43,49,55,62,69,76,84,92,101,110,119,
%T 129,139,150,161,172,184,196,208,221,234,248,262,276,291,306,322,338,
%U 354,371,388,406,424,442,461,480,499,519,539,560,581,602,624,646,669,692,715
%N Index of 2^n within sequence of numbers of form 2^i*6^j.
%H Robert Israel, <a href="/A025692/b025692.txt">Table of n, a(n) for n = 0..2500</a>
%p N:= 100: # for a(0)..a(N)
%p S:= sort([seq(seq(2^i*6^j,i=0..ilog2(2^N/6^j)),j=0..floor(log[6](2^N)))]):
%p seq(ListTools:-BinarySearch(S,2^i),i=0..N); # _Robert Israel_, Jan 12 2021
%Y Cf. A000079, A025610.
%K nonn
%O 0,2
%A _David W. Wilson_
%E Offset corrected by _Robert Israel_, Jan 12 2021
|
