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

1, 16, 19683, 16, 125, 1296, 16807, 16777216, 1853020188851841, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 160000, 194481, 10648, 12167, 13824, 15625, 17576, 19683, 17210368, 17249876309, 19683000000000

Offset: 1

Author

Reinhard Zumkeller, Aug 30 2004

Keywords

• nonn
• base

Comments

A000030(a(n)) = 1; a(n) = n^A098174(n).

Programs

Mathematica

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 *)