%I#6 2019年1月2日11:55:35
%S 0,1,1,1,1,3,1,1,5,1,3,1,9,5,1,1,17,1,3,9,33,17,165,1,5,7,1,1,
%电话33129,3,9,1257,65,5,1,11,17,9513,1129,11025257,33,12049,17,
%U 35134097、1、7、18193、5、1、33、19、1、651025、13、1、3、1163852049129、9、35、1、65、132769、1、1129655374097、5、12、17257
%N a(1)=0;对于n>1,a(n)=A000265(A289271(n))。
%H Antti Karttunen,n的表,n的a(n)=1..10000</a>
%F a(1)=0;对于n>1,a(n)=A000265(A289271(n))。
%F对于所有n>=1,A000120(a(n))=A001221(n)。
%o(PARI)
%o A000265(n)=(n/2^估价(n,2));
%o A289271(n)={my(v=0,i=0,x=1);对于(d=2,oo,如果(n==1,return(v));如果(1==gcd(x,d)&&1==omega(d),如果(!(n%d)&1==gcd(d,n/d),v+=2^i;n/=d;x*=d);i++);};\\在Rémy Sigrist的A289271程序之后。
%o A322995(n)=如果(1==n,0,A000265(A289271(n)));
%Y参见A000120、A001221、A000265、A289271。
%Y另请参阅A322993。
%K nonn公司
%O 1,6型
%2019年1月2日,安提·卡图宁
|