%I #12 Oct 13 2013 10:10:52
%S 9,11,17,19,21,28,29
%N Numbers n such that decimal expansion of n^n has only one zero.
%C 19 is the median of this finite set of numbers and the only zero of 19^19 is in the middle of it.
%t Select[Range[1000],Count[IntegerDigits[#^#],0]==1&]
%Y Cf.A131495,A229629.
%K nonn,base,fini,full
%O 1,1
%A _Jahangeer Kholdi_, Oct 12 2013
|