OFFSET
1,1
LINKS
L. J. Mordell, A new Waring's problem with squares of linear forms, Quart. J. Math., 1 (1930), 276-288 (see p. 283).
MATHEMATICA
f[upto_]:=Module[{maxi=Floor[(Log[2, upto]-1)/2], maxj= Floor[(upto-3)/8], s}, s=2^(2First[#]+1) (8Last[#]+3)&/@ Tuples[{Range[0, maxi], Range[0, maxj]}]; Union[Select[s, #<=upto&]]]; f[700] (* Harvey P. Dale, Mar 23 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jun 01 2000
STATUS
approved