登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 


A359065型
不同的正复合整数的最早序列,这样子序列就不会和一个素数相加,其中所有项都是互质的。
0
4, 21, 65, 209, 391, 3149, 9991, 368131, 57556589, 14865154981
抵消
1,1
评论
序列A052349号A068638号由整数组成,从一开始,规则是没有子序列有质数和;这些序列从一开始。从不同的数字开始似乎会产生简单的几何序列,例如,没有素子序列和的序列从4开始是4、6、8等等。避免这种情况的一种方法是实施互质规则,要求序列的条目是互质。序列是否无限尚不清楚。
数学
k=4;K={K};f={2};q=子集[K];While期间[长度@K<10,k++;如果[!PrimeQ[k]&&!交集Q[FactorInteger[k][[All,1]],f],s=k;z=0;对于[p=1,p<=长度@q,p++,如果[PrimeQ[Total[q[p]]+k],z=1;中断[]]];如果[z==0,则附加到[K,K];q=子集[K];AppendTo[f,FactorInteger[k][[All,1]]];f=压扁[f]]];打印[K](*塞缪尔·哈克尼斯,2023年4月11日*)
黄体脂酮素
(Python)
导入系统
导入数学
来自症状理论输入因子
从sympy.theory导入素数范围
定义交集(lst1、lst2):
lst3=[lst1中的值的值,如果lst2中的值]
返回长度(lst3)
n_primes=1000000
factors=[范围(0,n_primes)中n的素数(n)]
素数=列表(素数范围(0,n素数))
序列=[4]
总和=[序列[0]]
prime_factors=[f代表因子[sequence[0]]]中的f
大n=8
而len(序列)<bign:
new_a=错误
a=序列[-1]+1
while intersection(factors[a],prime_factors)=0:
a+=1
n=长度(序列)
虽然不是新的a:
new_sum=[a+总和的总和]
prime_sum=假
对于new_sum中的总和:
如果素数和:
prime_sum=真
如果不是质数sum和a不在质数中:
序列追加(a)
打印(a,end=“,”)
sys.stdout.flush()
总和=总和+新总和+[a]
sums=列表(dict.fromkeys(sums))
主因子=主因子+因子[a]
new_a=正确
其他:
a+=1
而a在素数或交集中(因子[a],素数因子)=0:
a+=1
打印()
(Python)
从数学导入gcd
从sympy导入isprime
从itertools导入islice
def-agen(start=4):术语的生成器
alst,k,sums=[start],start+1,{0}|{start}
为True时:
产量也[-1]
while any(gcd(k,an)!=1代表阿尔斯特)或\
任意(k+s不在和中,s的isprime(k+s)在和中):
k+=1
alst.附加(k)
sums.update([k+s代表总和中的s)
k+=1
打印(列表(islice(agen(),8))#迈克尔·布拉尼基2022年12月16日
关键词
非n,更多
作者
科诺·霍顿2022年12月15日
扩展
a(8)-a(9)来自迈克尔·布拉尼基2022年12月15日
a(10)来自雷米·西格里斯特2022年12月16日
状态
经核准的

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

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

上次修改时间:2024年9月23日11:42 EDT。包含376164个序列。(在oeis4上运行。)