A133299-OEIS公司

A133299号

Stolarsky阵列的分形序列，A035506号.

1, 1, 1, 2, 1, 2, 3, 1, 4, 2, 3, 5, 1, 6, 4, 2, 7, 3, 5, 8, 1, 9, 6, 4, 10, 2, 11, 7, 3, 12, 5, 8, 13, 1, 14, 9, 6, 15, 4, 10, 16, 2, 17, 11, 7, 18, 3, 19, 12, 5, 20, 8, 13, 21, 1, 22, 14, 9, 23, 6, 15, 24, 4, 25, 10, 16, 26, 2, 27, 17, 11, 28, 7, 18, 29, 3, 30, 19, 12, 31, 5, 32, 20, 8, 33

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,4

参考文献

D.R.莫里森（D.R.Morrison），《威瑟夫对的斯托拉斯基阵列》（A Stolarsky Array of Wythoff Pairs），《与斐波那契序列相关的手稿集》（A Collection of Manuals Related to the Fibonacci Sequence），由V.E.Hoggatt Jr.、M.Bicknell-Johnson编辑，斐波那奇协会出版，（1980）第134-136页凯西·蒙戈文，2011年9月10日

链接

n=1..85时的n，a（n）表。

埃里克·魏斯坦的数学世界，斯托拉尔斯基阵列

配方奶粉

A035506号对于某些k>=1，（a（n），k）=n-R.J.马塔尔2007年11月21日

a（n）=1+A098861号（n） ●●●●-凯西·蒙戈文2011年9月10日

例子

作为一个分形序列，如果每个n的第一次出现都被删除，那么结果序列与原始序列相同。有关Wythoff数组的分形序列，请参见A003603型.

MAPLE公司

A035506号：=proc（r，c）局部τ，a，b，d，i；τ：=（1+平方（5））/2；a:=地板（r*（1+tau）-tau/2）；b:=圆形（a*tau）；如果c=1，则返回（a）；否则，如果c=2，则返回（b）；否则，对于i从1到c-2，做d：=a+b；a:=b；b:=d；od：返回（d）；fi；fi；结束时间：

A133299号：=proc（n）局部行，列；对于从1 do开始的行对于从1 do开始的列stola：=A035506号（行，列）；如果stola=n，则返回（行）；elif stola>n然后断裂；fi；od:od:结束：

序列(A133299号（n），n=1..100）#R.J.马塔尔2007年11月21日

数学

A035506号[r_，c_]：=模块[{tau=黄金比率，a，b，d，i}，a=楼层[r*（1+tau）-tau/2]；b=圆形[a*tau]；如果[c==1，返回[a]，如果[c==2，返回[b]，对于[i=1，i<=c-2，i++，d=a+b；a=b；b=d]；返回[d]]]；

a[n_]：=模块[{row，col}，For[row=1，True，row++，For[col=1，True，col++，stola=A035506号[行，列]；如果[stola==n，返回[row]，如果[stola>n，中断[]]]]]；

数组[a，100](*Jean-François Alcover公司2020年3月22日之后R.J.马塔尔*)

交叉参考

囊性纤维变性。A035506号,A098861号,A195164号.

上下文中的序列：A195110型 A167198号 A295540型*A286537型 A132163号 A355079型

相邻序列：A133296号 A133297号 133298英镑*A133300个 A133301型 A133302型

关键字

非n