1,2

a(n)=n^9-A115222(n). For prime n, a(n)=n^3 (n^5+n^4-n^2-n+1)

Table[cnt=0; Do[m={{a, b, c}, {d, e, f}, {g, h, i}}; If[Det[m, Modulus->n]==0, cnt++ ], {a, 0, n-1}, {b, 0, n-1}, {c, 0, n-1}, {d, 0, n-1}, {e, 0, n-1}, {f, 0, n-1}, {g, 0, n-1}, {h, 0, n-1}, {i, 0, n-1}]; cnt, {n, 2, 7}]

Sequence in context: A013844 A044878 A085336 this_sequence A065499 A086028 A116347

Adjacent sequences: A115218 A115219 A115220 this_sequence A115222 A115223 A115224

mult,nonn

T. D. Noe (noe(AT)sspectra.com), Jan 16 2006