OFFSET
1,2
LINKS
C. J. Miguel and R. Serodio, On the Structure of Quaternion Rings over Zp, International Journal of Algebra, Vol. 5, 2011, no. 27, pp. 1313-1325.
MATHEMATICA
cuaternios[n_] := Flatten[Table[{{ a, -b, d, -c}, {b, a, -c, -d}, {-d, c, a, -b}, {c, d, b, a}}, {a, n}, {b, n}, {c, n}, {d, n}], 3]; cuater[n_] := Length@Select[cuaternios[n], Mod[#.# - #, n] == 0*# &]; Table[cuater[n], {n, 1, 100}]
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
José María Grau Ribas, Jul 18 2013
STATUS
approved