cp's OEIS Frontend

A240963 Numbers n such that the decimal expansion of n^n contains no zeros.

%I A240963 #16 Aug 21 2014 22:58:29
%S A240963 1,2,3,4,5,6,7,8,22
%N A240963 Numbers n such that the decimal expansion of n^n contains no zeros.
%C A240963 A240962(a(n)) = 0.
%C A240963 The sequence seems to be finite; compare A007377 (n such that 2^n contains no 0).
%C A240963 For no reason I can fathom this is a subsequence of A053408. - _Charles R Greathouse IV_, Aug 21 2014
%e A240963 1^1 = 1
%e A240963 2^2 = 4
%e A240963 3^3 = 27
%e A240963 4^4 = 256
%e A240963 5^5 = 3125
%e A240963 6^6 = 46656
%e A240963 7^7 = 823543
%e A240963 8^8 = 16777216
%e A240963 22^22 = 341427877364219557396646723584
%t A240963 Select[Range[10^4], If[Count[IntegerDigits[#^#], 0] == 0, True] &] (* _Michael De Vlieger_, Aug 07 2014 *)
%o A240963 (PARI)
%o A240963 for(n=1,10^3,d=digits(n^n);if(vecmin(d),print1(n,", "))) \\ _Derek Orr_, Aug 05 2014
%Y A240963 Cf. A240962, A007377, A030700, A053408.
%K A240963 nonn,base
%O A240963 1,2
%A A240963 _Anthony Sand_, Aug 05 2014