OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者

 

标志
提示
(来自的问候整数序列在线百科全书!)
A103839号 (1,2,3,…,n)的置换数,其中每个(n-1)相邻元素对之和为素数。 7
1, 2, 2, 8, 4, 16, 24, 60, 140, 1328, 2144, 17536, 23296, 74216, 191544, 2119632, 4094976, 24223424, 45604056, 241559918, 675603568, 8723487720, 22850057800, 285146572432, 859834538938, 8276479696196, 32343039694056, 429691823372130 (列表图表参考历史文本内部格式)
抵消
1、2
评论
图中哈密顿路径的数目,其中节点表示数字(1,2,3,…,n),边连接每对加起来等于素数的节点-鲍勃·安德里斯2020年10月4日
While期间A076220型(n) >a(n)对于2<n<26,对于此范围内的偶数nA076220美元(n) /a(n)<A076220型(n-1)/a(n-1-鲍勃·安德列塞2023年12月5日
链接
公式
对于n>1,a(n)=2*A051239号(n) ●●●●。
例子
对于n=5,我们有4个排列和相邻元素的和:
1,4,3,2,5 (1+4=5, 4+3=7, 3+2=5, 2+5=7)
3,4,1,2,5 (3+4=7, 4+1=5, 1+2=3, 2+5=7)
5,2,1,4,3 (5+2=7, 2+1=3, 1+4=5, 4+3=7)
5,2,3,4,1 (5+2=7, 2+3=5, 3+4=7, 4+1=5)
数学
A103839号[n_]:=计数[Map[lpf,Permutations[Range[n]]],0]
lpf[x_]:=长度[选择[asf[x]!PrimeQ[#]&]];
asf[x_]:=模块[{i},表[x[i]]+x[[i+1]],{i,长度[x]-1}]];
表[A103839号[n] ,{n,1,9}](*罗伯特·普莱斯2018年10月25日*)
黄体脂酮素
(PARI)okperm(perm)={对于(k=1,#perm-1,如果(!isprime(perm[k]+perm[k+1]),返回(0););返回(1);}
a(n)={nbok=0;对于(j=1,n!,perm=numtoperm(n,j);如果(okperm(perm),nbok++););返回(nbok);}\\米歇尔·马库斯2013年4月8日
交叉参考
囊性纤维变性。A051239号,A051252号
关键词
非n
作者
N.J.A.斯隆2005年3月30日
扩展
更多术语来自马克斯·阿列克塞耶夫2008年1月4日
a(25)-a(28)来自乔瓦尼·雷斯塔2014年4月1日
状态
经核准的

查找|欢迎|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。

许可协议、使用条款、隐私政策。

上次修改时间:6月2日00:37 EDT 2024。包含373032个序列。(在oeis4上运行。)