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,2

Comments

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

Links

Table of n, a(n) for n=1..30.

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

Crossrefs

Sequence in context: A159387 A283720 A349891 * A089232 A300615 A002489

Adjacent sequences: A098172 A098173 A098174 * A098176 A098177 A098178

Keyword

nonn,base

Author

Reinhard Zumkeller, Aug 30 2004

Status

approved