%I #6 Jul 26 2015 01:37:39
%S 1,16,19683,16,125,1296,16807,16777216,1853020188851841,10,11,12,13,
%T 14,15,16,17,18,19,160000,194481,10648,12167,13824,15625,17576,19683,
%U 17210368,17249876309,19683000000000
%N Smallest power of n with initial digit = 1 in decimal representation.
%C A000030(a(n)) = 1; a(n) = n^A098174(n).
%t f[n_] := Block[{k = 1}, While[IntegerDigits[n^k][[1]] != 1, k++ ]; n^k]; Table[ f[n], {n, 30}] (* _Robert G. Wilson v_, Sep 01 2004 *)
%K nonn,base
%O 1,2
%A _Reinhard Zumkeller_, Aug 30 2004