OFFSET
2,1
COMMENTS
Number of digits in n^k is equal to floor(1 + k*log_10(n)).
LINKS
V. Raman, Table of n, a(n) for n = 2..10000
MATHEMATICA
Table[k = 1; While[d = IntegerDigits[n^k]; ! MemberQ[Partition[Differences[d], 4, 1], {0, 0, 0, 0}], k++]; Length[d], {n, 2, 100}] (* T. D. Noe, Oct 03 2012 *)
Table[IntegerLength[NestWhile[n #&, n, SequenceCount[IntegerDigits[#], {x_, x_, x_, x_, x_}]<1&]], {n, 2, 60}] (* Harvey P. Dale, Jun 14 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
V. Raman, Sep 27 2012
STATUS
approved
