A180693 - OEIS

%I #16 Jan 18 2016 03:18:40

%S 1,2197,371293,4826809,51185893014090757,62748517,

%T 7056410014866816666030739693,815730721,91733330193268616658399616009,

%U 10604499373,112455406951957393129,12646218552730347184269489080961456410641,13,1461920290375446110677,15502932802662396215269535105521

%N Smallest power of 13 that begins with n.

%H Robert Israel, <a href="/A180693/b180693.txt">Table of n, a(n) for n = 1..99</a>

%F a(n) = 13^A180694(n). - _Michel Marcus_, Jan 18 2016

%p count:= 1:

%p A[1]:= 1:

%p for n from 1 while count < 99 do

%p x:= 13^n;

%p m:= ilog10(x);

%p for d from 0 to 1 do

%p    y:= floor(x/10^(m-d));

%p    if not assigned(A[y]) then

%p      count:= count+1;

%p      A[y]:= x;

%p    fi

%p od

%p od:

%p seq(A[i],i=1..99); # _Robert Israel_, Jan 17 2016

%Y Cf. A180691, A180694, A180695.

%K base,nonn

%O 1,2

%A _Daniel Mondot_, Sep 18 2010