A025718 - OEIS

%I #11 Jan 22 2024 00:05:13

%S 1,2,4,7,11,16,21,27,34,42,51,60,70,81,93,106,120,134,149,165,182,200,

%T 218,237,257,278,300,323,346,370,395,421,448,475,503,532,562,593,624,

%U 656,689,723,758,794,830,867,905,944,984,1024,1065,1107,1150,1194,1239,1284

%N Index of 6^n within sequence of numbers of form 6^i*9^j.

%H Robert Israel, <a href="/A025718/b025718.txt">Table of n, a(n) for n = 1..10000</a>

%p with(priqueue):

%p initialize(PQ):

%p insert([-1,0,0],PQ):

%p count:= 0: R:= NULL:

%p for i from 1 while count < 100 do

%p   v:= extract(PQ);

%p if v[3] = 0 then R:= R,i; count:= count+1; insert([v[1]*6,v[2]+1,0],PQ);

%p insert([v[1]*9, v[2], v[3]+1],PQ)

%p od:

%p R; # _Robert Israel_, Jan 21 2024

%K nonn

%O 1,2

%A _David W. Wilson_