OFFSET
2,1
COMMENTS
Note that 109^2 = 11881. So by looking at the digits from the left, we have a(109) = 1.
LINKS
V. Raman, Table of n, a(n) for n = 2..10000
MATHEMATICA
Table[k = 1; While[d = IntegerDigits[n^k]; ! MemberQ[df = Differences[d], 0], k++]; d[[Position[df, 0][[1, 1]]]], {n, 2, 100}] (* T. D. Noe, Oct 02 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
V. Raman, Sep 27 2012
STATUS
approved