reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
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 *)
approved
editing
R. J. Mathar, <a href="/A055672/b055672.txt">Table of n, a(n) for n = 0..10000</a>
editing
approved
approved
editing
_N. J. A. Sloane (njas(AT)research.att.com), _, Jun 09 2000
R. J. Mathar, <a href="/A055672/b055672.txt">Table of n, a(n) for n=0..10000</a>
nonn,easy,nice,new
R. J. Mathar, <a href="http://www.research.att.com/~njas/sequences/b055672.txt">Table of n, a(n) for n=0..10000</a>
nonn,easy,nice,new
N. J. A. Sloane (njas, (AT)research.att.com), Jun 09 2000