|
| |
|
| A364354型 |
| 可以表示为四个斐波那契数的平方和的数字。 |
|
1
|
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 25, 26, 27, 28, 29, 30, 31, 33, 34, 35, 36, 37, 38, 39, 42, 43, 44, 47, 50, 51, 52, 54, 55, 58, 59, 60, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,3
|
|
|
评论
|
用户vvg在Math StackExchange上通过类比拉格朗日四平方定理和泽肯多夫定理（参见链接和互补序列A364353型). 虽然前23个正整数属于这个序列，正如用户Empy2所提到的那样，“大多数”数字不能用这种形式书写：n下面有O（log n）斐波那契平方，所以n下面最多有O（（log n）^4）个不同的和，其渐近性远小于n。
|
|
|
链接
|
|
|
|
例子
|
写出第n个斐波那契数列的F（n）（F（0）=0）。下面省略了0。然后，可以写成4个斐波那契数列平方和的数字示例是0=F（0）^2，1=F（1）^2、2=F（一）^2+F（1。
如果我们用a<=b<=c<=d写（n，a，b，c，d）表示n=F（a）^2+F（b）^2+F（c）^2+5（d）^2，那么[5,23]中整数的穷举表示列表是（5,0,0,1,3），（6,0,1,1,3 4），（12,0,3,3,3），（13,0,0,4,4）或（13,1,3,3A），（14,0,1,3,4），（15,1,1,3,4），（16,3,3,3），（17,0,3,4]），（18,0,0,4,4）或（18,1,3,1,4）、（19,0,1,4,4-）、（20,1,1,4,1,4，（21,3,4,4-4）、。在100000以内的所有整数中，只有两个数字具有三种表示形式，即178，带有（178,0,4,4,5）、（178,2,2,6）和（178,,0,3,6）；和196，带有（196,2,5,5,5）、（196,3,3,6,6）和（196,0,0,4,6）。
|
|
|
数学
|
fibonacci=表格[fibonacci[n]^2，{n，1，22}]；
反向纤维[n_]：=
SubsuperscriptBox[“F”，位置[fibonacci，n][[1，1]]-1，2]//
显示窗体
子集=
元组[fibonacci，1]~连接~元组[fibonacci，2]~连接~
元组[fibonacci，3]~连接~元组[斐波那契，4]；
删除重复项[
SortBy[{Total[#]，Total[reverseFib/@#]}&/@子集，
第一个]]//表格
|
|
|
黄体脂酮素
|
（斯卡拉）
@main def main（args:Int*）：单位=
最大值=10000
定义fibFrom（n:Int，m:Int）：LazyList[Int]=
n#：：m#：：fibFrom（n+m，n+2*m）
val fib=fib来自（0，1）
def computeReprs（min:Int，max:Int）=（对于
n<-最小值到最大值
f1<-fib.takeWhile（f=>f*f<=n）
f=>f*f<=n-f1*f1）
f3<-纤维蛋白
.dropWhile（_<f2）
.takeWhile（f=>f*f<=n-f1*f1-f2*f2）
f4=纤维
.dropWhile（f=>f*f<n-f1*f1-f2*f2-f3*f3）
.头部
如果n==f1*f1+f2*f2+f3*f3+f4*f4
产量（n+：序列（f1，f2，f3，f4）
.过滤器（_！=0）
.map（fib.indexOf（_）））.distinct
val reprs=computeReprs（0，最大值）
//打印到控制台以创建b文件
val nosWithReprs=（0到最大值）
过滤器（i=>代表存在（k=>k（0）==i））
（（1至个带Repres.长度）邮编带Repres）
.foreach（（p，q）=>打印n（s“$p$q”）
|
|
|
交叉参考
|
|
|
|
关键字
|
非n
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
