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(2*x^2+2*x*y+3*y^2+2*y*z+2*z^2, L)=false then L := [op(L), 2*x^2+2*x*y +3*y^2+2*y*z+2*z^2] fi: od: od: od: L2 := sort(L): for i from 1 to 100 do printf(`%d, `, L2[i]) od:
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from James A. Sellers, May 31 2000
STATUS
approved