OFFSET
2,1
COMMENTS
LINKS
V. Raman and T. D. Noe, Table of n, a(n) for n = 2..1000 (terms 2 to 99 are from V. Raman)
MATHEMATICA
Table[mx = 0; Do[If[! MemberQ[Differences[d = IntegerDigits[n^k]], 0], mx = Length[d]], {k, 1000}]; mx, {n, 2, 50}] (* T. D. Noe, Oct 01 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
V. Raman, Sep 01 2012
STATUS
approved