%I #35 Oct 05 2021 14:02:48
%S 68,70,79,82,84,87,88,89,94,95,96,97,98,100,101,103,104,105,106,109,
%T 110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,
%U 127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144
%N Exponents of powers of 2 that contain all ten digits.
%C It is believed that every power of 2 beyond 2^86 contains the digit 0.
%C For k in {51,67,72,76,81,86}, 2^k contains all nonzero digits, but does not contain 0. - _Dimiter Skordev_, Oct 05 2021
%H Seiichi Manyama, <a href="/A130694/b130694.txt">Table of n, a(n) for n = 1..10000</a>
%F A043537(A000079(a(n))) = 10. - _Reinhard Zumkeller_, Jul 29 2007
%F a(n) = n + 91 for n >= 78 (conjectured). - _Chai Wah Wu_, Jan 27 2020
%e 2^68 = 295147905179352825856.
%t A2 := {}; Do[If[Length[Union[ IntegerDigits[2^ n]]] == 10, A2 = Join[A2, {n}]], {n, 1, 200}]; Print[A2]
%t Select[Range[200],Min[DigitCount[2^#]]>0&] (* _Harvey P. Dale_, Aug 03 2019 *)
%o (PARI) is_A130694(n)=9<#Set(Vec(Str(1<<n))) \\ _M. F. Hasler_, Aug 25 2012
%Y Cf. A007377, A000079.
%Y Complement of A130696.
%K nonn,base
%O 1,1
%A _Greg Dresden_, Jul 10 2007
%E Displayed terms double-checked by _M. F. Hasler_, Aug 25 2012