%I M0485#72 2023年2月10日16:37:52

%S 0,1,2,3,4,5,6,7,8,9,13,14,15,16,18,19,24,25,27,28,31,32,33,34,35,36，

%电话：37,39,49,51,67,72,76,77,81,86

%N数字k，使2^k的十进制展开式不包含0。

%C显示86是最后一个学期，这是一个由来已久的悬而未决的问题。

%C A027870（a（n））=A224782（a（n））=0.-_Reinhard Zumkeller，2013年4月30日

%C关于3^k的模拟，见A030700，似乎以k=68结尾_M.F.Hasler，2014年3月7日

%C检查至k=10^10。-_David Radcliffe_，2022年8月21日

%D J.S.Madachy，《假期数学》，斯克里布纳出版社，纽约，1966年，第126页。

%D N.J.A.Sloane和Simon Plouffe，《整数序列百科全书》，学术出版社，1995年（包括该序列）。

%H W.Schneider，NoZeros:Powers n^k without Digit Zero（无数字零）[Cached copy]

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/Zero.html“>零</a>

%H R.G.Wilson，V，致N.J.a.Sloane的信，1993年10月</a>

%这里是2^86，推测是2的最大幂，不包含0:77371252455336267181195264_N.J.A.Sloane，2023年2月10日

%p删除（t->有（转换（2^t，基数，10），0），[$0..1000]）；#_罗伯特·伊斯雷尔（Robert Israel），2015年12月29日

%t Do[If[Union[RealDigits[2^n][[1]][[1]！=0，打印[n]]，{n，1，60000}]

%t选择[范围@1000, 第一@工会@整数位数[2^#]！=0 &]

%t选择[Range[0100]，DigitCount[2^#，10,0]==0&]（*哈维·P·戴尔，2015年2月6日*）

%o（岩浆）[0..50000]中的n:n不是Intseq（2^n）中的0；//_Bruno Berselli_，2011年6月8日

%o（Perl）使用bignum；

%o代表（0..99）{

%o如果（（1<<$_）=~/^[1-9]+$/）{

%o打印“$_，”

%o}（o）

%o}#_Charles R Greathouse IV，2011年6月30日

%o（PARI）（n=0,99，if（vecmin（eval（Vec（Str（2^n））），打印1（n“，”））\\查尔斯·格里特豪斯IV，2011年6月30日

%o（哈斯克尔）

%o导入数据。列表（elemIndices）

%o a007377 n=a007377_列表！！（n-1）

%o a007377_list=元素索引0 a027870_list

%o——Reinhard Zumkeller，2013年4月30日

%o（Python）

%o def ok（n）：返回“0”不在str中（2**n）

%o打印（列表（过滤器（正常，范围（10**4）））#_Michael S.Branicky_，2021年8月8日

%Y参考A027870、A030700、A102483、A034293。

%Y A035064中列出了一些类似序列。

%Y参见A031142。

%K基，nonn

%氧1,3

%A _N.J.A.Sloane_，_Robert G.Wilson v_

%E a（1）=0，由_Reinhard Zumkeller_编制，2013年4月30日