%I#27 2023年10月30日07:48:22

%S 0,1,2,3,4,5,8,9,13,16,21,25,27,32,34,55,64,81,89125128144169233，

%电话：243256377441512610625729987102411561597204821872197，

%电话：258430253125409641816561676579218192926110946156251638417711

%斐波那契数的N次幂。

%C非平凡斐波那契幂的子集[不在A000045中的数字A000045（k）^n]开始于4、9、16、25、27、32、64、81、125、128、169、243、256、441、512、625、729、1024、1156…-R。J.Mathar_，2015年1月26日。这些是A254719的初始条款_Reinhard Zumkeller，2015年2月6日

%H R.Zumkeller，n表，n=1..100000的a（n）（来自T.D.Noe的前1000个术语）

%H Eric Weisstein的数学世界，<a href=“http://mathworld.wolfram.com/FibonaciNumber.html“>斐波那契数</a>

%e 2197=13^3=A000045（7）^3，因此2197是一个术语。

%p N:=10^6:#获取所有术语<=N

%p选择（`<=`，{0,1，seq（seq（组合：-fibonacci（i）^j，i=3..楼层（log[phi]（sqrt（5）*N^（1/j）+1）），j=1..ilog2（N））}，N）；

%p#如果使用Maple 11或更早版本，请取消注释下一行

%p#排序（转换（%，列表））；#_罗伯特·伊斯雷尔（Robert Israel），2015年1月26日

%t极限=10^5；t=表[f=斐波那契[n]；f^范围[Floor[Log[lim]/Log[f]]，{n，3，Ceiling[Log[GoldenRatio，lim]+1]}]；联盟[{0，1}，扁平[t]]（*_t.D.Noe_，2011年9月27日*）

%o（哈斯克尔）

%o导入数据。集合（singleton、deleteFindMin、insert）

%o a105317 n=a105317_列表！！（n-1）

%o a105317_list=0:1:h 1（删除4 a000045_list）（单例（2，2）），其中

%o h y xs'@（x:xs）s

%o | x<ff=h y xs（插入（x，x）s）

%o | ff==y=h y xs的s

%o |否则=ff:h ff xs'（插入（f*ff，f）s'）

%o其中（（ff，f），s'）=deleteFindMin s

%o——Reinhard Zumkeller，2015年2月6日

%o（PARI）列表（lim）=我的（v=列表（[0]），k=1，f，t）；而（k<=lim，listput（v，k））；k*=2）；k＝3；而（k<=lim，listput（v，k））；k*=3）；k=5；而（k<=lim，listput（v，k））；k*＝5）；k=6；而（f=fibonacci（k++））<=lim，t=1；而（t*=f）<=lim，listput（v，t））；设置（v）\\_Charles R Greathouse IV_，2016年10月3日

%Y子序列：A056570-A056574、A007598、A000045、A000079、A000244、A000351、A001018、A001022和A009965。

%Y参见A103323，A254719。

%K nonn公司

%氧1,3

%A _Reinhard Zumkeller，2005年4月25日