login
Smallest power of n with initial digit = 1 in decimal representation.
2

%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