2，3

n行有A087692号（n） 条款。-罗伯特·以色列2015年1月4日

n=2..94的n，a（n）表。

1个；

1,2；

1,3；

1、2、3、4；

1,5；

1,6；

1、3、5、7；

1,8；

1、3、7、9；

第5行包含1,2,3,4，因为（在mod 5中）1^3=1，3^3=2，2^3=3，4^3=4。-杰弗里·克里特2015年1月7日

对于n从2到30 do

op（{seq（`if`（igcd（i，n）=1，i^3 mod n，NULL），i=1..n-1）}）

#如果使用Maple 11或更早版本，请将其替换为

#op（排序（convert（{seq（`if`（igcd（i，n）=1，i^3 mod n，NULL），i=1..n-1}，list）））

外径#罗伯特·以色列2015年1月4日

表[选择[范围[n]，

CoprimeQ[#，n]&&IntegerQ[PowerMod[#，1/3，n]]&]，{n，1，20}]//Grid

(*杰弗里·克里特，2015年1月4日*）

（PARI）maybecubegcd1（n）={对于（x=2，n，b=楼层（x-1）；a=向量（b+1）；对于（y=1，b，z=y^3%x；if（z<>0，a[y]=z；）；s=vecsort（a）；c=1；对于（j=2，b+1，if（s[j]<>s[j-1]，c++；if（gcd（s[j]，x）==1，print1（s[j]“，”））；）}

囊性纤维变性。A087692号,A096087号.

上下文顺序：A038566号 A020652型 A293248*A329585型 邮编：A128487 A056609号

相邻序列：A096104号 A096105型 A096106号*A096108号 A096109号 A096110号

不,塔夫

奇诺·希利亚德2004年7月22日

编辑唐·雷布尔2006年5月7日

经核准的