登录
OEIS由
OEIS基金会的许多慷慨捐赠者
.
提示
（来自的问候
整数序列在线百科全书
!)
A241810型
n扇区上的平衡轨道数。
三
1, 1, 0, 0, 2, 6, 0, 6, 8, 36, 0, 88, 58, 376, 0, 1096, 526, 4476, 0, 14200, 5448, 57284, 0, 190206, 61108, 764812, 0, 2615268, 723354, 10499504, 0, 36677626, 8908546, 147110276, 0, 522288944, 113093022
(
列表
;
图表
;
参考
;
听
;
历史
;
文本
;
内部格式
)
抵消
0,5
评论
有关组合定义，请参见
A232500型
.如果轨道的积分为0，则轨道是平衡的。
轨道w对n扇区的积分是和（1<=k<=n，和（1>=i<=k，w（i）），其中w（i。
链接
n，a（n）的表，n=0..36。
配方奶粉
a（2*n）=
A204459型
（2，n）。
a（2*n+1）=
A242087型
（n） ●●●●。
a（4*n）=
A063074号
（n）=
A029895美元
（2*n）=
A067059号
（2*n，2*n）。
对于所有n，a（4*n+2）=0（由H.Havermann证明）。
数学
np[z_]：=模[{i，j}，对于[i=长度[z]，i>1&&z[[i-1]]>=z[[i]]，i--]；
对于[j=长度[z]，z[[j]]<=z[[i-1]]，j--]；
连接[Take[z，i-2]，{z[[j]]}，Reverse[Drop[ReplacePart[z，z[i-1]]，j]，i-1]]]；
o=表[1，{16}]；
n＝0；
f=0；
打印[1]；
打印[1]；
当[n<16，n++；f=1-f；如果[OddQ[f*n]，打印[0]，p=Join[-Take[o，n]，{f}，Take[o，n-f]]；
c=0；
Do[If[Cumulate[Cumulate[p]][[-1]]==0，c++]；
p=np[p]，{（2*n+1-f）！/（2*n！^2）}]；
打印[2*c]]；
n=n-f]
(*
汉斯·哈弗曼
2014年5月10日*）
黄体脂酮素
（鼠尾草）
定义
A241810型
（n） ：
如果n==0：返回1
A=0
T=[0]，如果is_odd（n）else[]
对于（1..n//2）中的i：
T.附录（-1）；
T.附录（1）
对于排列（T）中的p：
P=0；
S=0
对于k in（0..n-1）：
P+=P[k]；
S+=P
如果S==0:A+=1
返回A
[
A241810型
（n） 对于（0..32）中的n
交叉参考
囊性纤维变性。
A232500型
,
A242087型
.
上下文中的序列：
A327280型
A350256型
A345208型
*
A156991号
A229586型
A294789型
相邻序列：
241807英镑
电话：241808
A241809型
*
A241811型
A241812型
A241813型
关键词
非n
,
更多
作者
彼得·卢什尼
2014年4月29日
扩展
更多术语来自
汉斯·哈弗曼
2014年5月10日
a（35），a（36）来自
汉斯·哈弗曼
2014年5月23日
状态
经核准的
