A055672 Number of right-inequivalent prime Hurwitz quaternions of norm n.
0, 0, 1, 4, 0, 6, 0, 8, 0, 0, 0, 12, 0, 14, 0, 0, 0, 18, 0, 20, 0, 0, 0, 24, 0, 0, 0, 0, 0, 30, 0, 32, 0, 0, 0, 0, 0, 38, 0, 0, 0, 42, 0, 44, 0, 0, 0, 48, 0, 0, 0, 0, 0, 54, 0, 0, 0, 0, 0, 60, 0, 62, 0, 0, 0, 0, 0, 68, 0, 0, 0, 72, 0, 74, 0, 0, 0, 0, 0, 80, 0, 0, 0, 84, 0, 0, 0, 0, 0, 90
Offset: 0
References
- L. E. Dickson, Algebras and Their Arithmetics, Dover, 1960, Section 91.
Links
- R. J. Mathar, Table of n, a(n) for n = 0..10000
- L. E. Dickson, Algebras and Their Arithmetics, U. Chicago Press, 1923, Section 91.
Crossrefs
Programs
-
Mathematica
A055671[n_] := If[PrimeQ[n], Reduce[a^2 + b^2 + c^2 + d^2 == 4n, {a, b, c, d}, Integers] // Length, 0]; a[n_] := A055671[n]/24; Table[a[n], {n, 0, 100}] (* Jean-François Alcover, Oct 22 2016 *)
Formula
a(n) = A055671(n)/24.
Comments