登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
A096107号 按行读取三角形:第n行列出模n的三次剩余。 1

%我

%S 1,1,2,1,3,1,2,3,4,1,5,1,6,1,3,5,7,1,8,1,3,7,9,1,2,3,4,5,6,7,8,9,10,1,

%T 5,7,11,1,5,8,12,1,13,1,2,4,7,8,11,13,14,1,3,5,7,9,11,13,15,1,2,3,4,5,

%U 6,7,8,9,10,11,12,13,14,15,16,1,17,1,7,8,11,12,18,1,3,7,9,11,13,17,19,1,8

%N按行读取的三角形:第N行列出模N的三次剩余。

%C行n有A087692(n)术语。-_Robert Israel,2015年1月4日

%e 1;

%e 1,2;

%1,3分;

%1,2,3,4;

%e1,5;

%e1,6;

%e 1、3、5、7;

%e1,8;

%e 1、3、7、9;

%第5行包含1,2,3,4,因为(在mod 5中)1^3=1,3^3=2,2^3=3,4^3=4。-_Geoffrey Critzer,2015年1月7日

%p代表n从2到30 do

%p op({seq(`if`(igcd(i,n)=1,i^3 mod n,NULL),i=1..n-1)})

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

%p#op(排序(convert({seq(`if`(igcd(i,n)=1,i^3 mod n,NULL),i=1..n-1},list)))

%p od;#u Robert Israel,2015年1月4日

%t表[选择[范围[n],

%t CoprimeQ[#,n]&&IntegerQ[PowerMod[#,1/3,n]]&],{n,1,20}]//网格

%t(*u Geoffrey Critzer,2015年1月4日*)

%o(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]“,”));)}

%Y比照A087692、A096087。

%不,塔夫

%氧2,3

%2004年7月22日

%E编辑:嫒Don Reble_u,2006年5月7日

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

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

上次修改日期:美国东部时间2020年10月20日21:32。包含337910个序列。(运行在oeis4上。)