OFFSET
1,2
LINKS
G. Nebe and N. J. A. Sloane, Home page for this lattice
MAPLE
L := [seq(0, i=1..1)]: for x from -20 to 20 do for y from -20 to 20 do for z from -20 to 20 do if member(4*x^2+4*x*y+4*x*z+4*y^2+2*y*z+6*z^2, L)=false then L := [op(L), 4*x^2 +4*x*y+4*x*z+4*y^2+2*y*z+6*z^2] fi: od: od: od: L2 := sort(L): for i from 1 to 100 do printf(`%d, `, L2[i]/2) od:
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
More terms from James A. Sellers, May 31 2000
STATUS
approved