%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