%I A098175
%S A098175 1,16,19683,16,125,1296,16807,16777216,1853020188851841,10,11,12,13,14,
%T A098175 15,16,17,18,19,160000,194481,10648,12167,13824,15625,17576,19683,
%U A098175 17210368,17249876309,19683000000000
%N A098175 Smallest power of n with initial digit = 1 in decimal representation.
%C A098175 A000030(a(n)) = 1; a(n) = n^A098174(n).
%t A098175 f[n_] := Block[{k = 1}, While[IntegerDigits[n^k][[1]] != 1, k++ ]; n^k]; 
               Table[ f[n], {n, 30}] (from Robert G. Wilson v Sep 01 2004)
%Y A098175 Sequence in context: A017188 A013831 A159387 this_sequence A089232 A002489 
               A060205
%Y A098175 Adjacent sequences: A098172 A098173 A098174 this_sequence A098176 A098177 
               A098178
%K A098175 nonn,base
%O A098175 1,2
%A A098175 Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Aug 30 2004