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

 

徽标
提示
(来自的问候整数序列在线百科全书!)
A221168型 无限广义斐波那契单词p^[4]。 5
0, 1, 0, 1, 0, 3, 0, 3, 0, 3, 2, 3, 2, 3, 0, 3, 0, 3, 0, 1, 0, 1, 0, 1, 2, 1, 2, 1, 0, 1, 0, 1, 0, 3, 0, 3, 0, 1, 0, 1, 0, 1, 2, 1, 2, 1, 2, 3, 2, 3, 2, 1, 2, 1, 2, 1, 0, 1, 0, 1, 0, 3, 0, 3, 0, 1, 0, 1, 0, 1, 2, 1, 2, 1, 0, 1, 0, 1, 0, 3, 0, 3, 0, 3, 2, 3 (列表;图表;参考;;历史;文本;内部格式)
偏移
0,6
链接
何塞·拉米雷斯(JoséL.Ramírez)、古斯塔沃·鲁比亚诺(Gustavo N.Rubiano)和罗德里戈·德卡斯特罗(Rodrigo de Castro),斐波那契词分形和斐波那奇雪花的推广,arXiv预印本arXiv:12122.1368[cs.DM],2012-2014。
MAPLE公司
#fmorph、sigma1f和sigma01f定义于A221166型.
A221168型:=进程(n)
σ01f(n,4);
结束进程:#R.J.马塔尔2013年7月9日
数学
fibi[n_,i_]:=fibi[n,i]=其中[n==0,{0},n==1,追加[Table[0,{j,1,i-1}],1],True,Join[fibi[n-1,i],fibi[n-2,i]]];
fibonni[n_,i_]:=fibonni[n,i]=模[{fn,fn},对于[fn=0,True,fn++,fn=fibi[fn,i];如果[Length[Fn]>=n+1和&Length[Pn]>i+3,则返回[Fn[[n+1]]]]];
fmorph[n_,i_]:=如果[fibonni[n,i]==0,2,0];
sigma1f[n_,i_]:=如果[n==0,1,1+Mod[Sum[fmorf[j,i],{j,0,n-1}],4]];
sigma01f[n_,i_]:=如果[n==0,0,Mod[Sum[sigma1f[j,i],{j,0,n-1}],4]];a[n]:=σ01f[n,4];表[a[n],{n,0,100}](*Jean-François Alcover公司2017年11月30日,之后R.J.马塔尔*)
交叉参考
关键词
非n
作者
N.J.A.斯隆2013年1月4日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月27日05:20。包含372009个序列。(在oeis4上运行。)