|
|
A296050型 |
| [n]的置换数p,使得min_{j=1..n}|p(j)-j|=1。 |
|
三
|
|
|
0, 0, 1, 2, 8, 40, 236, 1648, 13125, 117794, 1175224, 12903874, 154615096, 2007498192, 28075470833, 420753819282, 6726830163592, 114278495205524, 2055782983578788, 39039148388975552, 780412763620655061, 16381683795665956242, 360258256118419518680, 8283042472303599966974
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,4
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(2)=1:21。
a(3)=2:231312。
a(4)=8:2143、2341、2413、3142、3421、4123、4312、4321。
a(5)=40:21453、21534、23154、23451、23514、24153、24513、24531、25134、25413、25431、31254、31452、31524、34152、34251、35124、35214、35412、35421、41253、41523、41532、43152、43251、43512、43521、45132、45213、45231、51234、51423、51432、53124、53214、53412、53421、54132、54213、54231。
|
|
MAPLE公司
|
b: =proc(s,k)选项记忆;(n->`if`(n=0,` if`(k=1,1,0),添加(
`如果`(n=j,0,b(s减去{j},min(k,abs(n-j))),j=s))(nops)
结束时间:
a: =n->b({$1..n},n):
seq(a(n),n=0..14);
#第二个Maple项目:
a: =n->(f->f(1)-f(2))(k->`如果`(n=0,1,线性代数[永久](
矩阵(n,(i,j)->`if`(abs(i-j)>=k,1,0)):
seq(a(n),n=0..14);
#第三个Maple项目:
g: =程序(n)g(n):=`if`(n<2,1-n,(n-1)*(g(n-1,+g(n-2)))结束:
h: =进程(n)h(n):=`if`(n<7,[1,0$3,1,4,29][n+1],n*h(n-1)+4*h(n-2)
-3*(n-3)*h(n-3
结束时间:
a: =n->g(n)-h(n):
seq(a(n),n=0..25);
|
|
数学
|
g[n_]:=g[n]=如果[n<2,1-n,(n-1)(g[n-1]+g[n-2])];
h[n_]:=h[n]=如果[n<7,{1,0,0,1,4,29}[[n+1]],
n小时[n-1]+4小时[n-2]-3(n-3)小时[n-3]+(n-4)小时[n-4]+
2(n-5)小时[n-5]-(n-7)小时[n-6]-h[n-7]];
a[n]:=g[n]-h[n];
|
|
交叉参考
|
|
|
关键词
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|