%I#12 2016年10月26日15:17:42
%S 1,1,1,1,2,1,1,1,1,2,3,1,4,1,1,1,2,2,2,2,9,2,12,3,6,1,6,4,9,1,8,1,1,2,
%T 2,18,2,20,9,24,2,32,12,30,3,40,6,12,12,6,45,4,60,9,24,1,18,8,27,1,
%U 16,1,1,1,2,2,36,2,60,18,48,2,72,20160,9140,24,72,96,32200,12240,30140,3120,40160,12,24,1
%N第N Stern多项式非零系数的乘积。
%C a(n)=A125184第n行非零项的乘积。
%H Antti Karttunen,n的表格,n=0..8192的a(n)</a>
%F a(n)=A005361(A260443(n))。
%F a(n)=A227349(A277020(n))。
%F a(2n)=a(n)。
%F a(n)>=A277326(n)。
%o(方案)
%o(定义(A277325 n)(A005361(A260443 n))
%o;;独立实现:
%o(定义(A277325 n)(减少*1(滤波器正极?(A260443as_coeff_list n)))
%o(definec(A260443as_coeff_list n)(cond((零?n)(list))((=1 n)(列表1))(偶数?n)
%o(定义(add_two_lists nums1 nums2)(let((len1(length nums1))(len2(length-nums2
%Y参见A005361、A125184、A227349、A260443、A277020。
%Y参见A277326(非零系数的lcm)和A002487(它们的总和)。
%K nonn公司
%0、6
%2016年10月13日,安蒂·卡图内
|