OFFSET
2,1
MATHEMATICA
Table[k = 1; While[d = IntegerDigits[n^k]; df = Partition[Differences[d], 8, 1]; ! MemberQ[df, {0, 0, 0, 0, 0, 0, 0, 0}], k++]; d[[Position[df, {0, 0, 0, 0, 0, 0, 0, 0}][[1, 1]]]], {n, 2, 10}] (* T. D. Noe, Oct 02 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
V. Raman, Sep 27 2012
STATUS
approved