|
%I #19 May 03 2016 02:20:15
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,20,21,22,27,28,30,34,
%T 40,100,1000,10000,100000,1000000
%N Numbers n such that n^n does not contain all ten decimal digits.
%C A240963 is a subsequence.
%C A011557 is a subsequence. So this sequence is obviously infinite.
%C Conjecture: the only values > 40 are the powers of 10. - _Franklin T. Adams-Watters_, Apr 29 2016
%e 27 is a term because 27^27 = 443426488243037769948249630619149892803 does not contain digit 5.
%e 28 is a term because 28^28 = 33145523113253374862572728253364605812736 does not contain digit 9.
%t {0}~Join~Select[Range[10^4], Times @@ DigitCount[#^#] == 0 &] (* _Michael De Vlieger_, Apr 25 2016 *)
%o (PARI) isA171102(n) = 9<#vecsort(Vecsmall(Str(n)), , 8);
%o lista(nn) = for(n=0, nn, if(!isA171102(n^n), print1(n, ", ")));
%o (PARI) is(n)=#Set(digits(n^n))<=9 \\ _Charles R Greathouse IV_, Apr 29 2016
%Y Cf. A000312, A011557, A130696, A171102, A240963, A272269.
%K nonn,base,more
%O 1,3
%A _Altug Alkan_, Apr 25 2016
%E a(31) from _Charles R Greathouse IV_, Apr 29 2016
%E a(32) from _Charles R Greathouse IV_, May 03 2016
|
