%I#5 2018年8月23日21:03:01
%S 1,1,1,7,1,7,1,25,11,1,43,15,13363,1,71,1,67,17,23,1139,19,27,
%电话61,91,1,57,11335,25,35,21365,1,39,29215,1,81,1139131,47,11875,
%U 27199,37163,1367,29291,59,1235,1,631719923,33129,1211,49137,11055,1,75235235,33153,128831363,83,1335,41
%N有理值序列的分子,其Dirichlet卷积与自身产生序列A051953(N的余音)+A063524(1,0,0,…)。
%C第一个负项是a(420)=-1269。
%H Antti Karttunen,n的表格,n=1..65537的a(n)</a>
%F a(n)=F(n)的分子,其中F(1)=1,F(n)=(1/2)*(A051953(n)-求和{d|n,d>1,d<n}F(d)*F(n/d))对于n>1。
%o(PARI)
%o A317846aux(n)=如果(1==n,n,(n-eulerphi(n))-sumdiv(n,d,如果(d>1)&&(d<n),A317846aux(d)*A317846aux(n/d),0))/2);
%o A317846(n)=分子(A317846aux(n));
%o(PARI)
%o\\记忆实现:
%o备忘录317846=地图();
%o A317846aux(n)=如果(1==n,n,if(mapisdefined(memo317846,n),mapget(memo31.7846,n),my(v=(n-eulerphi(n))-sumdiv(n,d,if)(d>1)&(d<n),A317846aux(d)*A317846aux(n/d),0))/2);地图(备忘录317846,n,v);(v) );
%Y参见A051953、A063524、A046644(分母)。
%Y另请参阅A317845、A317925。
%K标志,压裂
%O 1,4型
%A _Antti Karttunen,2018年8月12日
|