%I#47 2023年12月11日08:39:25

%S 100196225441484676100010891156122514441521176421162601，

%电话：274430253249336433753844225435647614900547659296084，

%电话：67247225739675698281864988369025926110000104041064811025112361210012321

%N次幂s^m，m>1，其中s是一个不是原始数的复合方折射数。

%H Michael De Vlieger，<a href=“/A365745/b365745.txt”>n的表，a（n）表示n=1.-10000</a>

%F该序列为{A303606\A365308}。

%F此序列包含{A120944\A002110}中s的幂s^m，m>1。

%e 100是这个序列中的第一项，因为它是10^2；10是一个无平方的复合数。所有功率10^m，m>1都在序列中。

%e36不在序列中，因为它是6^2，其中6是最小2个素数的乘积；6^m，m>1的幂都不在序列中。

%t nn=2^30；ss=楼层@平方[nn]；p=3；

%t s=补码[

%t选择[Range[ss]、[SquareFreeQ[#]、CompositeQ[#]]&]，

%t NestWhileList[（Set[p，NextPrime[p]]；#p）&，6，#<=ss&]]；

%t联盟@Reap[Do[k=2；While[s[[i]]^k<=nn，Sow[s[i]]^k]；k++]，

%t{i，长度[s]}]][[-1，1]]

%Y参考A002110、A120944、A303606、A365308。

%K nonn，简单

%O 1,1号机组

%A _Michael De Vlieger_，2023年12月10日