%I#26 2024年1月20日09:16:55
%S 2,2,2,3,2,4,2,3,6,4,5,5,10,4,3,5,8,22,13,14,2,5,5,2,20,9,9,24,5,26,
%电话:15,14,25,25,4,9,30,9,21,12,11,10,2,40,19,8,13,11,50,3,25,8,5,25,
%U 46,19,47,54,9,13,14,43,4,24,28,16,33,25152,2,11,22,6,78,87,7,10,21
%N a(N)=最小数>1,使得a(1)a(2)。。。a(n)-1是素数(或1)。
%H Michael S.Branicky,n表,n=1..1600的a(n)(T.D.Noe的术语1..300)
%t sng1[{t_,a_}]:=模块[{k=2},而[CompositeQ[t k-1],k++];{t*k,k}];嵌套列表[sng1,{2,2},80][[;;,2]](*_哈维·P·戴尔,2023年5月20日*)
%o(Python)
%o来自sympy import isprime
%o从itertools导入计数
%o a,p=[2],2
%o表示_在范围(100)内:
%o q=下一个(滤波器(λx:i素数(x*p-1),计数(2)))
%o p=p*q
%o a.append(q)
%o打印(a)#_Nicholas Stefan Georgescu,2023年3月6日
%Y参考A036012、A058000(对应素数)。
%K nonn,很好,很容易
%O 1,1
%鲁塞尔东面(_R)_
%E来自_Erich Friedman_的更多术语。更多条款来自Jud McCranie,2000年1月26日。
|