|
%I #42 Aug 04 2015 13:12:37
%S 1,2,4,8,16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,1048576,
%T 536870912
%N Powers of 2 with distinct digits.
%F a(n) = 2^A084688(n).
%t Select[2^Range[0,34], Max@ DigitCount@ # == 1 &] (* _Michael De Vlieger_, Aug 03 2015 *)
%o (PARI) lista() = {lim = ceil(log(10^11)/(log(2))); for (n=0, lim, d = digits(2^n); if (#vecsort(d,,8) == #d, print1(n, ", ")););} \\ _Michel Marcus_, Aug 03 2015
%Y Cf. A000079, A029743, A084688.
%K nonn,base,fini,full
%O 1,2
%A _Zak Seidov_, Aug 02 2015
|
