编辑
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --A007059号,添加程序员:{t(n,k)=如果(!n,1,if(!k,总和(j=1,n,t(n-j,j;type(memoize)==“t_CLOSURE”&&t=内存大小(t);\\使用Kevin Ryde的备忘录.gpa(n)=t(n-1,0);}? [a(n)|n<-[0..20]]% [0, 1, 1, 2, 3, 5, 8, 14, 24, 43, 77, 140, 256, 472, 874, 1628, 3045, 5719, 10780, 20388, 38674]-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --A048572美元,更改名称:-a(n)=a(n-1)*a(n-2)的位数之和。+a(1)=1;a(2)=2;a(n+2)=a(n+1)*a(n)的位数之和。-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --A059442号(拉姆齐数字数组),添加Cf。2005年5月09日,A192708型.-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --A100982号,添加程序员:alist(N)={我的(a=Vec(1,N));对于(k=2,N,a[k]=和(m=1,k-1,(-1)^(m-1)*二项式(logint(3^(k-m),2)+m-1,m)*a[k-m]));a;}添加Cf。A060941型,A293946型.将v2={2,1,3,11,23,59,7,15123}与A014551号.-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
添加
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --添加序列:-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --[2, 5, 15, 35, 91, 203, 491, 1067, 2475, 5291, 11947, 25259, 55979, 117419, 256683, 535211, ...].a(n)=(2^n*(6*n+3-(-1)^n)/4+1)/3;-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --[1, 2, 7, 15, 43, 91, 235, 491, 1195, 2475, 5803, 11947, 27307, 55979, 125611, 256683, 567979, ...].a(n)=(2^n*(3*n-(-1)^n)/4+1)/3;-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --A007494号(n) 模块4[0, 2, 3, 1, 2, 0, 1, 3, 0, 2, 3, 1, 2, 0, 1, 3, 0, 2, 3, 1, 2, 0, 1, 3, 0, 2, 3, 1, 2, 0, 1, ...]? [(n+(n+1)>>1)%4|n<-[0..30]]% [0, 2, 3, 1, 2, 0, 1, 3, 0, 2, 3, 1, 2, 0, 1, 3, 0, 2, 3, 1, 2, 0, 1, 3, 0, 2, 3, 1, 2, 0, 1]? [(3*(n+(n+1)>>1)+1)%4|n<-[0..30]]% [1, 3, 2, 0, 3, 1, 0, 2, 1, 3, 2, 0, 3, 1, 0, 2, 1, 3, 2, 0, 3, 1, 0, 2, 1, 3, 2, 0, 3, 1, 0]-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --d_1mod8(n0,C=1)={我的(n=n0);对于(c=1,c,my(x=6*n+1);而(1!=x%8,x=3*x+1;x>>=估值(x,2));n=x>>3);n-n0;}? 我的(C=8,R=16,n=-1);对于(r=1,r,对于(c=1,c,n++;printf(“%5s|”,d_1mod8(n)));打印());0| 1| -2| -1| -1| 15| -4| 1|-2| 11| -10| -9| -3| -11| -14| 2|-4| 12| -13| -11| -5| 161| -19| 3|-6| -25| -15| -27| -7| 45| -28| 4|-8| 23| -32| -33| -9| 16| -30| 5|-10| -15| -25| -34| -11| -37| -46| 6|-12| 34| -36| -43| -13| 19| -54| 7|-14| -39| -56| -56| -15| 94| -62| 8|-16| 45| -64| -67| -17| 194| -68| 9|-18| -47| -27| 107| -19| 33| -76| 10|-20| 56| -59| -48| -21| 1555| -74| 11|-22| -75| -52| -89| -23| 143| -94| 12|-24| 67| -78| -46| -25| -29| -94| 13|-26| -102| -5| -105| -27| 154| -90| 14|-28| 78| -82| -106| -29| 551| -115| 15|-30| -113| -93| -123| -31| 192| -106| 16|-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --我的(W=40,C=256,R=16,L=0*W);对于(c=L+1,最小值(L+W,c),打印f(“%5s|”,c-1));打印(“\n”);对于(r=1,r,对于(c=L+1,min(L+W,c),my(n=(r-1)*r+c-1);打印f(“%5s|”,如果是(0||((n%4)&&(7!=n%8)&&;打印());-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --的第一个差异A098294号.? alist(N=100)=我的(d0=0);对于(n=0,n,my(d=!!i+logint(3^n,2)-n);打印1(d-d0,“,”);d0=d);? alist();1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1,-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --添加序列:1,1,0,1,1,1,2,0,1,3,3,1,4,7,0,1,5,12,12,0,1,6,18,30,30,1,7,25,55,85,0,1,1,8,33,88,173,173,1,9,42,130,303,476,0,1,10,52,182,485,961,961,0作为三角形:n|k:1|2|3|4|5|6|7|8|。。。--+---+---+---+---+---+---+---+---+---1| 12| 1 03| 1 14| 1 2 05| 1 3 36| 1 4 7 07| 1 5 12 12 08| 1 6 18 30 309| 1 7 25 55 85 010| 1 8 33 88 173 17311| 1 9 42 130 303 476 012| 1 10 52 182 485 961 961 0...L(n)=1+楼层(n*log(3)/log(2))-n。对于n>=1,k>=1、k<=L(n)、T(n,k)=如果。囊性纤维变性。A100982号(行总和)。-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --? [n+1|n<-[0..200],4==登录符(3^(n+2),2)-登录符(2^n,2)]% [6, 11, 18, 23, 30, 35, 42, 47, 52, 59, 64, 71, 76, 83, 88, 95, 100, 105, 112, 117, 124, 129, 136, 141, 148, 153, 158, 165, 170, 177, 182, 189, 194, 201]-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --? my(Tau=2*Pi,s=0);[(s+=n)\陶|n<-[0..24]]% [0, 0, 0, 0, 1, 2, 3, 4, 5, 7, 8, 10, 12, 14, 16, 19, 21, 24, 27, 30, 33, 36, 40, 43, 47]a(n)=楼层((总和{k=0..n}k)/Tau)将长度为n的绳索绕单位圆缠绕时的循环数。-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --