%I#6 2018年9月16日21:44:01
%S 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,21,
%电话:26,27,28,29,30,31,32,33,34,35,36,37,34,38,39,40,41,42,43,44,45,46,47,
%U 42,48,43,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,53,70,59,71,66,72,73,74,51,75,76,77,78,79,80,81,76,82,83,71
%N组合N(A046523)的素数签名和Euler totiten函数(A000010)的滤波器序列。
%C限制生长序列转换A286160。
%C对于所有i,j:a(i)=a(j)=>A062355(i)=A06235五(j)。
%H Antti Karttunen,n的表格,n=1..65537的a(n)</a>
%o(PARI)
%o up_to=65537;
%o rgs_transform(invec)={my(om=Map(),outvec=vector(length(invec)),u=1);对于(i=1,长度(invesc),如果(mapisdefined(om,invec[i]),my(pp=mapget(om,invec[i];
%o A046523(n)={my(f=vecsort(factor(n)[,2],4),p);prod(i=1,#f,(p=nextprime(p+1))^f[i]);};\\来自A046523
%o A318893aux(n)=[eulerphi(n),A046523(n)];
%o v318893=rgs_transform(向量(up_to,n,A318893aux(n)));
%o A318893(n)=v318893【n】;
%Y参见A000010、A046523、A286160、A318839、A318892。
%Y另请参见A061468、A062355。
%K nonn公司
%O 1,2号机组
%A _Antti Karttunen,2018年9月16日
|