OFFSET
1,1
COMMENTS
19 is the median of this finite set of numbers and the only zero of 19^19 is in the middle of it.
MATHEMATICA
Select[Range[1000], Count[IntegerDigits[#^#], 0]==1&]
CROSSREFS
KEYWORD
nonn,base,fini,full
AUTHOR
Jahangeer Kholdi, Oct 12 2013
STATUS
approved