A074154 Largest n-digit power of n; or 0 if no such number exists.

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

Links

Table of n, a(n) for n=1..21.

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

Adjacent sequences: A074151 A074152 A074153 * A074155 A074156 A074157

Keyword

base,nonn

Author

Amarnath Murthy, Aug 29 2002

Extensions

Corrected and extended by Robert G. Wilson v, Jun 30 2009

Status

approved