1,2
大卫·A·科尼思,n=1的n,a(n)表。。10000
Z、 内德夫,Magnus-Derek博弈的一种降低计算复杂度的策略,国际数学论坛,第9卷,2014年,第7期,第325-333页。见第326页。
Z、 内德夫和S.Muthukrishnan,唠叨搬运工游戏,DIMACS技术报告2005-22。
使用(numtheory):a:=proc(n)local nn:nn:=factorset(n):如果n=1,则1 elif nn={2}则n elif nn[1]=2然后(nn[2]-1)*n/nn[2]否则(nn[1]-1)*n/nn[1]fi结束:
数组[如果[IntegerQ@Log2@#1,#1,#1(#2-1)/#2]&@{,选择First[FactorInteger[[All,1]],\>2&]}&,75](*迈克尔·德维列格2017年10月25日*)
(PARI)first(n)={my(res=vector(n,i,i));对于素数(p=3,n,for(k=1,n\p,如果(res[k*p]==k*p,res[k*p]*=(p-1)/p));res}\\大卫·A·科尼思2017年10月25日
囊性纤维变性。A108738电话.
上下文顺序:A202103 A333787飞机 A062570号*A317419型 A120456号 A115383号
相邻序列:A108511号 A108512 A108513电话*A108515电话 A108516号 A108517电话
不
S、 Muthukrishnan(muthu(AT)研究所。att.com),2005年6月23日
定义修订人N、 斯隆2017年10月28日米歇尔·马库斯.
经核准的