搜索: a274281-编号:a274281
|
|
|
|
1, 1, 1, 2, 1, 2, 1, 2, 2, 1, 2, 2, 3, 2, 1, 2, 2, 3, 2, 1, 2, 3, 2, 3, 2, 1, 2, 3, 2, 3, 2, 3, 2, 1, 2, 3, 2, 3, 2, 3, 4, 3, 2, 2, 1, 2, 3, 2, 3, 3, 2, 3, 4, 3, 2, 3, 2, 1, 2, 3, 2, 3, 3, 3, 2, 3, 4, 3, 4, 2, 3, 2, 1, 2, 2, 3, 3, 2, 3, 3, 4, 3, 2, 3, 4, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,4
|
|
链接
|
|
|
示例
|
不同卢卡斯数(包括2,不包括1)的乘积按递增顺序排列,包括A274281型(去掉1个)。列表以2、3、4、6=2*3、7、8=2*4、11、12、14、18、21、22、24=2*3*4开头,因此a(4)=2、a(6)=2,a(13)=3。
|
|
数学
|
r[1]:=2;r[2]:=1;r[n]:=r[n]=r[n-1]+r[n-2];
s={1};z=40;f=Join[{2},Map[r,2+Range[z]]];取[f,10]
Do[s=并集[s,选择[s*f[[i]],#<=f[[z]]&]],{i,z}];
infQ[n_]:=成员Q[f,n];
ans=表格[#[[Flatten[Position[Map[Apply[Times,#]&,#],s[[n]]][1]]]&[
Rest[Subset[Map[#[[1]]&,Select[Map[{#,infQ[#]}&,
除数[s[[n]]],#[[2];
取[ans,10]
w=地图[长度,ans]
地图[Apply[Times,#]&,Select[ans,Length[#]==2&]](*A274349号*)
地图[Apply[Times,#]&,Select[ans,Length[#]==3&]](*A274350型*)
|
|
交叉参考
|
|
|
关键词
|
非n,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
0, 1, 2, 3, 5, 6, 8, 10, 13, 15, 16, 21, 24, 26, 30, 34, 39, 40, 42, 48, 55, 63, 65, 68, 78, 80, 89, 102, 104, 105, 110, 120, 126, 130, 144, 165, 168, 170, 178, 195, 204, 208, 210, 233, 240, 267, 272, 273, 275, 288, 312, 315, 330, 336, 340, 377, 390, 432, 440, 442, 445
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,3
|
|
评论
|
启动方式与相同A049862号,两个不同的斐波那契数的乘积。这个序列有无穷多个连续的项,这些项是连续的数字(例如15和16),因为对于所有k>=0的项,fib(k)*fib(k+3)和fib(k+1)*fip(k+2)相差一。
根据Carmichael定理,如果u和v是Fibonacci数的有限集,即(u中所有数的乘积)=(v中所有数之积),则u=v。对于许多其他具有常系数的二阶线性递归序列也是如此。在以下有关“不同产品序列”的指南中,W=Wythoff阵列,A035513号:
碱基序列差异产物序列
|
|
链接
|
|
|
数学
|
s={1};nn=30;f=斐波纳契[2+范围[nn]];Do[s=并集[s,选择[s*f[[i]],#<=f[[nn]]&]],{i,nn}];s=前缀[s,0]
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A274280型
|
| 不同Lucas数(1,3,4,7,11,…)的乘积 |
|
+10 11
|
|
|
1, 3, 4, 7, 11, 12, 18, 21, 28, 29, 33, 44, 47, 54, 72, 76, 77, 84, 87, 116, 123, 126, 132, 141, 188, 198, 199, 203, 216, 228, 231, 304, 308, 319, 322, 329, 348, 369, 378, 492, 504, 517, 521, 522, 532, 564, 594, 597, 609, 792, 796, 812, 836, 843, 846, 861
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
示例
|
卢卡斯数是1,3,4,7,11,18,29,。。。,因此,不同Lucas数的所有乘积的序列按递增顺序为1、3、4、7、11、12、18、21、28、29,。。。
|
|
数学
|
f[1]=1;f[2]=3;z=32;f[n]:=f[n-1]+f[n-2];f=表格[f[n],{n,1,z}];(f)
s={1};Do[s=并集[s,选择[s*f[[i]],#<=f[[z]]&]],{i,z}];秒
取[Times@@@子集[LucasL[Range[20]]//联合,60](*哈维·P·戴尔2019年9月26日*)
|
|
交叉参考
|
|
|
关键词
|
非n,容易的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.010秒内完成
|