登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A318893型 组合n的素数签名的滤波器序列(A046523号)使用Euler totient函数(A000010号).

%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日

查找|欢迎光临|维基|注册|音乐|地块2|Demos公司|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日18:04。包含371254个序列。(在oeis4上运行。)