#来自在线整数序列百科全书的问候!http://oeis.org/ 搜索:id:a096107 展示1-1的1个1 ;%I a096107;%S a096107 1,1,1,2,1,1,3,1,1,2,1,3,1,1,2,3,1,1,2,3,4,1,1,5,5,1,7,1,8,1,3,7,9,9,1,1,2,2,3,4,5,6,7,8,8,9,10,1,;%T a096107 5,7,7,11,1,1,5,8,12,1,1,1,13,1,2,4,4,4,1,1,1,1,1,7,8,11,13,14,1,3,5,7,9,11,13,15,1,2,3,4,5, %U a096107 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 a096107按行读取的三角形:行立方项a096n有n个立方项。-安徽省罗伯特·以色列合用,2015年1月04日;%e A096107 1;;%e A096107 1,2,2;;%e A096107 1,2;;%e A096107 1,2,3,4;;;%e A096107 1,2,3,4;;;%e A096107 1,5,5;5;5;5;5;5;5;7;;;%e A096107 1,6;;%e A096107 1,3,5,7,7;;%e A096107 1,8;;%e A096107 1,3,3,9;9;;%e A096107第5行中包含1,2,3,4的原因是(in in in in in;in;(in in in;in;en A096107)因为(in;mod 5)1^3=1,3^3=2,2^3=3,4^3=4。-[北京时间2015年1月7日,[[北京]北京[北京]杰弗里.杰弗里.科创[2015年1月7日,[2010年1月7日,;%p A096107 op({seq(` if`(igcd(i,n)=1,i^3 modn n n,NULL,i=1..n-1)});%p a0961107#如果使用枫11或更早的版本,将此替换为 %p a0996107#op(sort(convert({seq(`if `(if`(igcd(i,n)=1,i^3 mod n,NULL),i=1,i=3 mod n,NULL),i=1,i=1,n-1,n-3 1..n-1)},列表))) %p A096107 od;#u Robert Israel,2015年1月04日2015年1月04日2015年1月04日2015年1月04日2015年1月04日2015年1月04日 %t A096107表[选择[范围[n],,(n),[n]和&整数q[PowerMod[#,1/3,n,n]]&],{n,1,20}]//网格;%网格 %t A096107(*GeoffreyCritzer本公司,2015年1月4日*);%o A096107(PARI)可能会被CubegCD1(n)={为(x=2,n,b=地板(x-1),a=矢量(b+1)矢量(b+1+1+1)矢量(b+1+1);对于(y=1,b,z=y^3%x;如果(z<>0,a[y]=z;);s=vecsort(a);c=1;对于(j=2,b+1,如果(s[j]<>s[j-1],c++;如果(gcd(s[j],x)==1,打印1(s[j]“,”)));)} %Y A096107 Cf.A087692,A096087.;%K A096107 Non n,tabf,tabf;%O A096107 2,3,3;%A A096107 UCino Hilliard_,2004年7月22日;%E A096107由编辑_DonReble_uuDon Reble_,2006年5月7日; %E A096107编辑,编辑_DonReble Reble,2006年5月7日,2006年35;可根据OEIS最终用户许可协议获取内容:http://OEIS.org/License