A096110 Triangle read by rows: row n lists quartic residues modulo n.
1, 1, 1, 1, 1, 1, 2, 4, 1, 1, 4, 7, 1, 1, 3, 4, 5, 9, 1, 1, 3, 9, 1, 9, 11, 1, 1, 1, 4, 13, 16, 1, 7, 13, 1, 4, 5, 6, 7, 9, 11, 16, 17, 1, 1, 4, 16, 1, 3, 5, 9, 15, 1, 2, 3, 4, 6, 8, 9, 12, 13, 16, 18, 1, 1, 6, 11, 16, 21, 1, 3, 9, 1, 4, 7, 10, 13, 16, 19, 22, 25, 1, 9, 25, 1, 7, 16, 20, 23, 24, 25
Offset: 2
Crossrefs
Cf. A096088.
Programs
-
PARI
maybefourthgcd1(n) = { for(x=2,n, b=floor(x-1); a=vector(b+1); for(y=1,b, z=y^4%x; if(z<>0, a[y]=z; ) ); s=vecsort(a); c=1; for(j=2,b+1, if(s[j]<>s[j-1], c++; if(gcd(s[j],x)==1,print1(s[j]",")) ) ); ) }
Extensions
Edited by Don Reble, May 07 2006