%I#10 2019年11月1日18:39:17
%S 1,2,3,6,7,9,30,31,33,37,38,39210211213217218219241242246,
%电话:2472492310231123131231723182319234123422343234623472521,
%电话:252252325262527272529255025553255725555930030313003330037300383003930061300623006330066300673006930241
%N是不同初等数A002110的和,并且没有p^p形式的因子的数。
%C编号n,使A129251(n)=0和A328828(n)=0(或相等,A328114(n)=1)。
%C A276156中A276086(A276085(k))=k的项k,即A276156中在A276086范围内的那些项。
%H Antti Karttunen,n的表,n=1..23330的a(n)</a>
%H<a href=“/index/Pri#primorialbase”>与primorial base相关序列的索引条目</a>
%F a(n)=A276086(A328833(n))。
%o(PARI)
%o A129251(n)={my(f=因子(n));和(k=1,#f~,(f[k,2]>=f[k),1]);};
%o A328828(n)={my(i=1,p=2);while(n,if((n%p)>1,return(i));i++;n=n\p;p=下一素数(1+p));(0);};
%o是A328832(n)=((0==A129251(n))&&(0==A328828(n);
%o(PARI)
%o A276156(n)={my(p=2,pr=1,s=0);while(n,if(n%2,s+=pr);n>>=1;pr*=p;p=下一素数(1+p);(s);};
%o k=0;对于(n=1,(2^15)-1,如果(!A129251(u=A276156(n)),k++;写入(“b328832.txt”,k,“”,u,“”));
%A048103和A276156的Y交点。
%Y参考A002110、A129251、A276085、A2760086、A328114、A328828、A328831、A32883、A328936。
%K非n
%O 1,2号机组
%A _Antti Karttunen,2019年10月30日
|