OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
f:= n -> floor(10^frac((n-1)*log[10](n))):
map(f, [$1..200]); # Robert Israel, Jan 15 2019
MATHEMATICA
f[n_, k_] := Quotient[n^k, 10^Floor[k*Log[10, n]]]; Table[ f[ n, n - 1], {n, 105}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Feb 10 2008
EXTENSIONS
Name corrected by Robert Israel, Jan 15 2019
STATUS
approved