OFFSET
1,1
EXAMPLE
13=1^2+2^2+2^2+1*2*2 with x=1, y=z=2. 29=1^2+2^2+4^2+1*2*4 with x=1, y=2, z=4.
MATHEMATICA
f[x_, y_, z_]:=x^2+y^2+z^2+x*y*z; lst={}; Do[Do[Do[p=f[x, y, z]; If[PrimeQ[p], AppendTo[lst, p]], {z, 3*4!}], {y, 3*4!}], {x, 3*4!}]; Take[Union[lst], 5! ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jul 06 2009
EXTENSIONS
Definition corrected and entries checked by R. J. Mathar, Aug 14 2009
STATUS
approved