%I#18 2024年1月14日11:49:50

%第1、2、3、5、6、68、76394415483页

%N数字N，使得N^i（i=1..7）都是零。

%C无其他条款<10^8_Michel Marcus_，2013年10月11日

%C无其他条款<10^13.-_Charles R Greathouse IV，2013年10月14日

%C A253647的子序列，i<=6而不是7的模拟。推测为有限_M.F.Hasler，2015年1月7日

%C a（10）>3.3*10^16（如果存在）_Giovanni Resta_，2018年9月6日

%e 15483^i（i=1..7）=15483、239723289、3711635683587、57467255288977521、889765513639238957643、13776239447676336781186569、213297515368372383111647827均为零。

%t选择[Range[10^6]，FreeQ[Union[Integer Digits[#]，Integer数字[#^2]，IntegerDigits[#^3]，IntigerDigits[#^4]，IntEGerDigit[#^5]，IntegerDigits[#^6]

%t选择[Range[15500]，FreeQ[Flatten[IntegerDigits/@（#^Range[7]）]，0]&]（*Harvey P.Dale_，2024年1月14日*）

%o（PARI）isok（n）={对于（i=1,7，如果（！vecmin（digits（n^i）），返回（0））；）；返回（1）；}\\_Michel Marcus_，2013年10月11日

%o（PARI）\\检查大型（>10^9）成员的脚本：

%o是（n）=表示（i=1,7，如果（vecmin（数字（n^i））==0，返回（0））；1

%o坏（n，d）=对于（k=1，d，如果（n%10==0，返回（1））；n=10）；0

%o好7（n，d）=我的（t=1）；对于（i=1,7，如果（坏（提升（t*=n），d），返回（0））；1

%o左（d）=我的（v=列表（），m=10^d）；对于（i=0,10^d-1，如果（good7（Mod（i，m），d），listput（v，i）））；车辆（v）

%o diff（v）=矢量（#v-1，i，v[i+1]-v[i]）

%o L=左（9）；D=差异（concat（L，10^9+L[1]））；对于步骤（n=L[1]，1e12，D，如果（是（n），打印（n）））\\_Charles R Greathouse IV_，2013年10月14日

%Y参见A253647、A104264、A124649。

%K nonn，基础，更多

%O 1,2号机组

%A_Zak Seidov，2006年12月22日