登录
OEIS由OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A194100号 天然散布A194126号; 反对偶的矩形阵列。 5
1, 6, 2, 13, 7, 3, 23, 14, 8, 4, 36, 24, 15, 9, 5, 51, 37, 25, 16, 10, 11, 69, 52, 38, 26, 17, 18, 12, 89, 70, 53, 39, 27, 28, 19, 20, 112, 90, 71, 54, 40, 41, 29, 30, 21, 138, 113, 91, 72, 55, 56, 42, 43, 31, 22, 166, 139, 114, 92, 73, 74, 57, 58, 44, 32, 33, 197 (列表;桌子;图表;参考;;历史;文本;内部格式)
抵消
1,2
评论
请参见A194029号用于定义自然分形序列和自然散布。每个正整数只出现一次(每对行交错出现),因此作为一个序列,A194100号是正整数的置换;它的反比是A194101号
链接
例子
西北角:
1...6...13...23...36
2...7...14...24...37
3...8...15...25...38
4...9...16...26...39
5...10..17...27...40
11…18…28…41…56
数学
z=40;g=黄金比率;
c[k_]:=-1+总和[Floor[j+j*g],{j,1,k}];
c=表格[c[k],{k,1,z}](*194126*)
f[n_]:=如果[MemberQ[c,n],1,1+f[n-1]]
f=表格[f[n],{n,1800}](*A193042号*)
r[n_]:=压扁[位置[f,n]]
t[n,k_]:=r[n][[k]]
表格形式[表格[t[n,k],{n,1,8},{k,1,7}]]
p=扁平[表[t[k,n-k+1],{n,1,16},{k,1,n}]](*A194100号*)
q[n_]:=位置[p,n];压扁[表[q[n],{n,1,80}]](*A194101号*)
交叉参考
囊性纤维变性。A194029号,A194126号,A193042号,A194101号
关键词
非n,
作者
克拉克·金伯利2011年8月15日
状态
经核准的

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

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

上次修改时间:2024年4月26日12:09 EDT。包含371997个序列。(在oeis4上运行。)