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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A277198号 a(n)=gcd(A260443型(n) ,A260443型(n+1))。 8
1, 1, 3, 1, 1, 3, 15, 1, 1, 15, 15, 5, 5, 15, 105, 1, 1, 105, 75, 5, 5, 375, 525, 7, 7, 525, 525, 35, 35, 105, 1155, 1, 1, 1155, 525, 245, 35, 2625, 18375, 7, 7, 91875, 13125, 35, 245, 18375, 40425, 11, 11, 40425, 25725, 245, 245, 128625, 202125, 77, 77, 40425, 40425, 385, 385, 1155, 15015, 1, 1, 15015, 5775, 2695, 2695, 1414875, 1414875, 77, 77 (列表图表参考历史文本内部格式)
抵消
0,3
链接
配方奶粉
a(n)=gcd(A260443型(n) ,A260443型(n+1))。
黄体脂酮素
(方案)(定义(A277198号n) (gcd(A260443型(+1 n))(A260443型n) ))
;; 更实用的版本,只需要实现A000040型:
(定义(A277198号n) (产品价格to_kth_powers(gcd_of_exp_lists(A260443as_coeff_list n)(A26043as_coff_list(+1 n))))
(定义(product_primes_to_kth_powers nums)(let循环((p1)(nums-nums)(i1))(cond((null?nums)p)(else(循环(*p(expt(A000040型i) (车号))(cdr编号)(+1 i)))
(definec(A260443as_coeff_list n)(cond((零?n)(list))((=1 n)(列表1))(偶数?n)
(定义(add_two_lists nums1 nums2)(let((len1(length nums1))(len2(length-nums2
(定义(gcd_of_exp_lists nums1 nums2)(let((len1(length nums1))(len2(length-nums2
(PARI)A=[];
A003961号(n) =我的(f=系数(n));f[,1]=应用(p->下一素数(p+1),f[,1');因子回收(f)
A260443型(n) =如果(n<3,返回(n+1));如果(#A<n,A=concat(A,向量(n-#A));如果(A[n],返回(A[n]));A[n]=如果(n%2,A260443型(n\2)*A260443型(n\2+1)中,A003961号(A260443型(n/2))
a(n)=全球气候变化日(A260443型(n) ,A260443型(n+1))\\查尔斯·格里特豪斯四世2016年10月13日
交叉参考
囊性纤维变性。A260443型,A277197号.
囊性纤维变性。A277327型,A277328号(质数因子的数量)。
关键词
非n
作者
安蒂·卡图恩,2016年10月10日
状态
经核准的

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

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

上次修改时间:2024年4月19日08:45 EDT。包含371782个序列。(在oeis4上运行。)