login
A074154
Largest n-digit power of n; or 0 if no such number exists.
1
1, 64, 729, 4096, 78125, 279936, 5764801, 16777216, 387420489, 1000000000, 25937424601, 743008370688, 1792160394037, 56693912375296, 129746337890625, 4503599627370496, 0, 374813367582081024, 0, 32768000000000000000, 0
OFFSET
1,2
COMMENTS
From a(6) onwards the sequence is A074153.
Where a(n)=0 for n: 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 40, ..., . - Robert G. Wilson v, Jun 30 2009
MATHEMATICA
f[n_] := Block[{a = n^Ceiling[ Log[n, 10^n] - 1]}, If[ Floor[ Log[10, a] + 1] == n, a, 0]]; f[1] = 1; Array[f, 21] (* Robert G. Wilson v, Jun 30 2009 *)
CROSSREFS
Cf. A074154.
Sequence in context: A001014 A352052 A050753 * A351604 A343286 A240845
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Aug 29 2002
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Jun 30 2009
STATUS
approved