cp's OEIS Frontend

A180693 Smallest power of 13 that begins with n.

%I A180693 #16 Jan 18 2016 03:18:40
%S A180693 1,2197,371293,4826809,51185893014090757,62748517,
%T A180693 7056410014866816666030739693,815730721,91733330193268616658399616009,
%U A180693 10604499373,112455406951957393129,12646218552730347184269489080961456410641,13,1461920290375446110677,15502932802662396215269535105521
%N A180693 Smallest power of 13 that begins with n.
%H A180693 Robert Israel, <a href="/A180693/b180693.txt">Table of n, a(n) for n = 1..99</a>
%F A180693 a(n) = 13^A180694(n). - _Michel Marcus_, Jan 18 2016
%p A180693 count:= 1:
%p A180693 A[1]:= 1:
%p A180693 for n from 1 while count < 99 do
%p A180693 x:= 13^n;
%p A180693 m:= ilog10(x);
%p A180693 for d from 0 to 1 do
%p A180693    y:= floor(x/10^(m-d));
%p A180693    if not assigned(A[y]) then
%p A180693      count:= count+1;
%p A180693      A[y]:= x;
%p A180693    fi
%p A180693 od
%p A180693 od:
%p A180693 seq(A[i],i=1..99); # _Robert Israel_, Jan 17 2016
%Y A180693 Cf. A180691, A180694, A180695.
%K A180693 base,nonn
%O A180693 1,2
%A A180693 _Daniel Mondot_, Sep 18 2010