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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A277328号 素数(以重数计算)除以gcd(160443元(n) ,160443元(n+1)):a(n)=A001222号(A277198号(n) )。 7

%I#11 2016年11月5日07:24:16

%S 0,0,1,0,0,1,2,0,2,2,1,2,3,0,3,3,1,1,4,4,1,42,2,3,4,0,4,

%温度4,3,2,5,6,1,1,7,6,2,3,6,6,1,6,3,3,7,7,2,6,6,4,5,0,5,4,4,

%U 4,8,8,2,2,9,9,4,4,8,10,9,9,11,10,5,5,10,11,2,11,10,5,6,8,1,1,8,5,4,10,11,3,12

%N素数(以重数计算)除以gcd(A260443(N),A260444(N+1)):a(N)=A001222(A277198(N))。

%H Antti Karttunen,n表,n=0..8192</a>

%F a(n)=A001222(A277198(n))。

%F a(n)>=A277327(n)。

%o(方案)

%o(定义(A277328 n)(A001222(A277198 n))

%o;;独立实现:

%o(定义(A277328 n)(减少+0(gcd_of_exp_lists(A260443as_coeff_list n)(A26043as_coff_list(+1 n))))

%o(definec(A260443as_coeff_list n)(cond((零?n)(list))((=1 n)(列表1))(偶数?n)

%o(define(add_two_lists nums1 nums2)(let((len1(length nums1))(len2(length nums2)))(cond((<len1 len2)(add_two_lists nums2 nums1))(else(map+nums1(append nums2(make list(-len1 len2)0))))))

%o(定义(gcd_of_exp_lists nums1 nums2)(let((len1(length nums1))(len2(length-nums2

%Y参考A001222、A125184、A260443、A277198、A277327。

%K nonn,看

%0、7

%2016年10月13日,安蒂·卡图内

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

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

上次修改时间:美国东部夏令时2024年3月28日18:04。包含371254个序列。(在oeis4上运行。)