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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Aug 29 2002
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Jun 30 2009
STATUS
approved