|
| |
|
| A272948型 |
| Fibonacci数在有序序列中的位置A160009型斐波那契数的所有乘积。 |
|
4
|
|
|
|
1, 2, 3, 4, 5, 7, 9, 12, 16, 21, 27, 35, 44, 56, 70, 87, 108, 133, 163, 199, 242, 292, 352, 421, 504, 599, 712, 841, 994, 1167, 1371, 1602, 1873, 2179, 2535, 2936, 3401, 3924, 4528, 5206, 5985, 6858, 7857, 8976, 10252, 11679, 13299, 15109, 17159, 19446, 22028
(列表;图表;参考文献;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,2
|
|
|
链接
|
|
|
|
示例
|
A160009型=（0,1,2,3,5,6,8,10,13,15,16,21，…），因此a=（1,2,3,4,5,7,9,12，…）。
|
|
|
数学
|
s={1}；nn=60；f=斐波纳契[2+范围[nn]]；Do[s=并集[s，选择[s*f[[i]]，#<=f[[nn]]&]]，{i，nn}]；s=前缀[s，0]；取[s，100](*A160009型*)
isFibonacciQ[n_]：=应用[Or，映射[IntegerQ，Sqrt[{#+4，#-4}&[5n^2]]]；
ans=Join[｛0｝｝，｛｛1｝｝，Table[#[[Flatten[Position[Map[Apply[Times，#]&，#]，s[[n]]][[1]]]&[Rest[Subsets[Rest[Map[#[[1]&，Select[Map[｛#，isFibonacciQ[#]}&，Divisitors[s[[n]]]，#[[2]]&]]]，｛n，3500｝]]
展平[Position[Map[Length，ans]，1]](*A272948型*)
地图[Apply[Times，#]&，Select[ans，Length[#]==1&]](*A000045号*)
地图[Apply[Times，#]&，Select[ans，Length[#]==2&]](*A271354型*)
地图[Apply[Times，#]&，Select[ans，Length[#]==3&]](*A272949型*)
地图[Apply[Times，#]&，Select[ans，Length[#]==4&]](*A272950型*)
|
|
|
交叉参考
|
|
|
|
关键词
|
非n
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
经核准的
|
| |
|
|
