%I#17 2019年8月27日17:49:52
%S 1,1,2,2,2,2,3,2,2,4,3,3,5,3,4,4,5,5,4,6,5,5,3,4,1,2,2,2,2,3,2,3,2,4,7,4,6,7,
%T 4,5,7,7,4,5,18,6,5,6,6,8,65,7,19,6,5A,8,9,6,10,6,9,8,8,8,
%U 10,7,6,9,10,7,6,10,10,7,7,11,10,7,7,11
%N a(N)=最接近于f(N)的整数,其中f(0)=f(1)=1,f(N)=(N-f(N-1))/f(N-2)。
%C来自Jon Maiga的评论,2019年8月25日:(开始)
%这个函数似乎是n的平方根。
%C第一个差异以x轴为中心,外观相似。
%C将初始值更改为例如f(0)=1和f(1)=3会创建一个非常不同的图形。
%C有关f(0)=f(1)=1和f(0。
%C(完)
%H Robert Israel,n的表,a(n)表示n=0..10000</a>
%H J.Maiga,<a href=“http://jonkagstrom.com/look/index.html“>一些好看的递归函数,2019年。
%H Jon Maiga,n到1000的f(n)图</a>
%p L[0]:=1:R[0]:=1:A[0]:=1:
%p L[1]:=1:R[1]:=1:A[1]:=1:
%p代表从2到100 do的n
%p x:=(n-R[n-1])/R[n-2];
%p y:=(n-L[n-1])/L[n-2];
%p L[n]:=10^(-100)*楼层(x*10^100);
%p R[n]:=10^(-100)*细胞(y*10^100);
%p如果是round(L[n])<>round(R[n],则打印f(“Oops:%d\n”,n);破译fi;
%p A[n]:=圆形(L[n])
%日期:
%p序列(A[n],n=0..100);#_罗伯特·伊斯雷尔,2019年8月24日
%t f[0]=f[1]=1;
%t f[n_]:=f[n]=n[(n-f[n-1])/f[n-2]
%t圆形[Array[f,83,0]]
%K nonn,看
%0、4
%A _Jon Maiga,2019年6月11日
|