OFFSET
1,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
q=16; imax=q^2; Select[Union[Flatten[Table[x^2+2*y^2+2*y*z+4*z^2, {z, -q, q}, {y, 0, q}, {x, 0, q}]]], #<=imax&] (* Vladimir Joseph Stephan Orlovsky, Apr 19 2011 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
STATUS
approved