登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)

修订历史记录A226081号

(带下划线的文本是附加; 删除线文本是删除.)

显示条目1-10|旧的更改
A226081号 正有理数的Fibonacci(或rabbit)序中的分子。
(历史;已发布版本)
#23通过N、 斯隆美国东部时间2018年12月1日星期六08:58:02
状态

提出

经核准的

#22个通过乔恩·肖恩菲尔德美国东部时间2018年11月30日星期五20:51:59
状态

编辑

提出

#21通过乔恩·肖恩菲尔德美国东部时间2018年11月20日星期五:56
数学

分母[j[z]]]   (*]]   (*A226080号*)*)

分子[j[z]]]     (*]]     (*A226081号*)*)

状态

提出

编辑

#20个通过M、 哈斯勒美国东部时间2018年11月30日星期五18:30:46
状态

编辑

提出

#十九通过M、 哈斯勒美国东部时间2018年11月30日星期五18:30:41
数学

z=13;d[s_List,t_List]:=Part[s,Sort[Flatten[Map[Position[s,#]&,completion[s,t]]]]];g[1]={1};g[2]={2};[g[n]=d[Riffle[g[n-1]+1,1/g[n-1]],g[n-2]],{n,3,z}];(*编辑M、 哈斯勒2018年11月30日*)

状态

提出

编辑

#十八通过M、 哈斯勒2018年11月30日星期五18:25:27
状态

编辑

提出

#17通过M、 哈斯勒美国东部时间2018年11月30日星期五18:25:10
数学

z=13;g[1] = {1};g[2] = {2};j[1] =g[1];j[n_] :=加入[j[n-1],g[n]];d[s_List,t_List]:=部分[s,Sort[Flatten[Map[Position[s,#]&,Complement[s,t]]]];n=2;同时g[1] = {1};g[n<z,n++;2] = {2};[g[n]=d[二分音符[g[n-1]+1,1/g[n-1]],g[n-2]]];j[]], {n,,z];  (*兔子-命令 理性. -最小 编辑}];  (*已编辑通过M、 哈斯勒2018年11月30日*)

j[1]=g[1];j[n_u]:=Join[j[n-1],g[n]];j[z];(*兔子有序有理数*)

状态

提出

编辑

#16通过M、 哈斯勒2018年11月30日星期五18:12:40
状态

编辑

提出

#十五通过M、 哈斯勒美国东部时间2018年11月30日星期五18:07:20
数学

z=13;g[1]={1};g[2]={2};j[1] =g[1];j[n_] :=加入[j[n-1],g[n]];d[s_列表,t_列表] :=零件[s,排序[压平[地图[职位[s, #] &,补足[s,t]]]]];n=2;同时[n<z,n++;g[n] =d[浅滩[g[] = {n-1] +1,1/g[n-1]],g[n-2};]]];j[z];  (*兔子-命令 理性. -最小 编辑 通过_.F.哈斯勒_,十一月 30 2018*)

j[3]=连接[g[1],g[2],g[3];j[n_u]:=连接[j[n-1],g[n]];

d[s_List,t_List]:=Part[s,Sort[Flatten[Map[Position[s,#]&,completion[s,t]]]];j[3]=连接[g[1],g[2],g[3];n=3;While[n<=nn,n++;g[n]=d[Riffle[g[n-1]+1,1/g[n-1]],g[n-2]];

表[g[n],{n,1,z}];j[z];(*兔子有序有理数*)

讨论
11月30日星期五 18: 十二
M、 哈斯勒:删除代码的重复部分和其他无用部分,将未定义的nn替换为z,调整while中的条件。不想编辑更多,但我认为“n:=2;While[…]”至少应该替换为For[]。此外,Riffle[]和“Sort[Flatten[Map[Position[…”也不必要地复杂。
#14通过M、 哈斯勒美国东部时间2018年11月30日星期五17:14:13
黄体脂酮素

(平价)A226081号(n) =分子(RabbitOrderedRational(n))\\见A226080号. -M、 哈斯勒2018年11月30日

状态

检验过的

编辑

讨论
11月30日星期五 17: 十九
M、 哈斯勒:现在它在那里,所以我把这个替代代码放回去。---Mmca代码对我来说似乎有问题。。。。j[3]定义了3次。。。。会编辑一点。。。

查找|欢迎光临|维基|登记|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索者|最近
OEIS社区|维护人OEIS基金公司。

许可协议,使用条款,隐私政策。.

上次修改日期:美国东部时间2020年8月5日14:43。包含336212个序列。(运行在oeis4上。)