A348534-OEIS公司

A348534飞机

连续元素之间的绝对差异产生up-down序列的[n]排列p的数目。

1, 1, 2, 2, 8, 20, 82, 326, 1678, 8776, 54804, 357910, 2646340, 20551986, 176420758, 1586656630, 15504954504, 158675287132, 1738817196038, 19931418239724, 242312687882510

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

抵消

0,3

如果i是偶数，则为|p（i-1）-p（i）|<|p（i）-p。

链接

n，a（n）的表（n=0..20）。

维基百科，置换

例子

a（0）=1:（），空置换。

a（1）=1:1。

a（2）=2:12，21。

a（3）=2:213231。

a（4）=8:1243、2134、2143、2413、3142、3412、3421、4312。

a（5）=20:12435、12453、21435、21453、23541、31425、31452、31542、32451、34125、34215、35124、35214、35241、43125、45213、45231、54213、54231。

a（6）=82:124356、124365、125364、125634。。。，652143, 652413, 653412, 653421.

MAPLE公司

b： =proc（s，x，y）选项记忆；（n->`如果`（n=0，1，加上（（d->

`如果`（x=0或n:：偶数且x<d或n:；奇数且x>d，b（s减去{j}，

`如果`（y=0，0，d），j），0））（abs（y-j），j=s））（nops）

结束时间：

a： =n->b（{$1..n}，0$2）：

seq（a（n），n=0..12）；

数学

b[s_，x_，y_]：=b[s，x，y]=函数[n，如果[n==0，1，Sum[函数[d，

如果[x==0||EvenQ[n]&&x<d||OddQ[n]&&x>d，b[s~补码~

{j} ，如果[y==0，0，d]，j]，0]][Abs[y-j]]，{j，s}]][Length[s]]；

a[n_]：=b[Range[n]，0，0]；

表[a[n]，{n，0，12}](*Jean-François Alcover公司2022年3月7日之后阿洛伊斯·海因茨*)

交叉参考

囊性纤维变性。295370英镑,A338738型.

上下文中的序列：A330645型 A178076号 A292476型*A259807型 A137774号 A167532号

相邻序列：A348531型 A348532型 A348533飞机*A348535型 A348536飞机 348537美元

关键字

非n,更多

作者

阿洛伊斯·海因茨2021年10月25日

状态

经核准的